Найти сумму N первых натуральных чисел ПАСКАЛЬ

Question

Найти сумму N первых натуральных чисел ПАСКАЛЬ

Answer 1

Var n,s,a:integer;
begin
readln(n);
for n:=n downto 1 do begin
read(a);
s+=a;
end;
writeln(s);
end.