program
cikl;
var
s,i,n:
integer;
begin
writeln('vvedite
chislo n');
readln(n);
s:=0;
for i:=1 to
n do begin
s:=s+i;
end;
writeln('summa
=',s);
end.