👤

Suma n numere citite de la tastatura


Răspuns :

var

 a,n,i:integer;

begin

read(n);

a:=0;

for i:=1 to n do

a:=a+i;

writeln('Suma=',a);

end.