Ответы и объяснения

2014-04-14T19:20:18+00:00
Var
n,i,sum:integer;
begin 
readln(n);
sum:=0;
i:=0;
while i<n do
  begin
  i:=i+1;
  sum:=sum+i;
end;
writeln(sum);
end.