Напишите программу, которая вводит натуральное число n и нахо дит сумму всех натуральных чисел от 1 до n. используй цикл с предусловием

Program z1;
var a,n,i,sum:integer;
Begin
sum:=0;
read(n);
for i:=1 to n do
begin
read(a);
sum:=sum+a;
end;
writeln(sum);
End.