Ответ: var a,i,n:integer;beginreadln (n);a:=0;whili i<=n dobegina:=a+i;end;writeln (a);end.вроде так