Даны числа от 1 до n.найти сумму всех чисел.произведеие всех ...

Мария

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.