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

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

begin
s:=0;p:=1;
write('Введите n = ');
readln(n);
for i:=1 to n do begin
readln(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.

var a,n,i,s,pr: integer;

begin

  a:=1;

  s:=0;

  pr:=1;

  readln(n);

  for i:=1 to n do begin

    s:=s+a;

    pr:=pr*a;

    a:=a+1;

                         end;

  writeln('Сумма: ',s,', произведение: ',pr,', среднее арифметическое: ',s/n:0:3);

end.