Даны натуральные число n, действительные числа . вычислить а1++an. на паскале

Var a,s:real; i:integer;
begin
write ('Введи натуральное число n = '); readln (n);
s:=0;
for i:= 1 to n do begin
readln (a); s:=s+a;
end;
write ('S= ',s);
end.