Во в прикрепленном документе

Устройте, мне, похороны O-0

pust' x chaek na pervom ostrove,a y na vtorom.

togda iz uslovia mozhno sostavit' sistemu:

x+y=79;

x-15-12=y+12;

togda y=x-39;

x+(x-39)=79;

x=59;

y=59-39=20.

otvet: 59 chaek na pervom ostrove, 20 na vtorom.

var n,i: byte; p,s,r: real;

begins: =0; p: =1; write('введите n = '); readln(n); for i: =1 to n do beginreadln(r); s: =s+r; p: =p*r; end; writeln('cумма всех чисел s = ',s: 0: 4); writeln('произведение всех чисел p = ',p: 0: 4); writeln('cреднее арифметическое = ',(s/n): 0: 4); end.