Написать программу вычисления суммы N чисел, вводимых с клавиатуры.

var p,s:real; i,n:integer;
begin
write('n? '); readln(n); s:=0;
for i:=1 to n do begin read(p); s:=s+p end;
writeln('sum=',s:0:3); readln
end.