Написать программу для определения суммы натуральных чисел от 1 до n (n- вводится с клавиатуры)

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