Даны числа от 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.