готово
Объяснение:
var i,n,sum:integer;
begin
write('n=');readln(n);
sum:=0; i:=1;
while i<=n do begin
sum:=sum+i; i:=i+1;
end;
writeln('Sum=',sum);
end.
