Question

Suma n numere citite de la tastatura

Answer 1

var

 a,n,i:integer;

begin

read(n);

a:=0;

for i:=1 to n do

a:=a+i;

writeln('Suma=',a);

end.