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

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