Найти сумму n первых натуральных чисел паскаль

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