Question

Надо сегодня!!!!!!!!!!!!
Помогите пожалуйста.

Answer 1

Ответ:

var s,x: integer;

begin

s:=0;

x:=1;

while (x<=100) do

 begin

 s:=s+x;

 x:=x+1;

 end;

writeln(s);

end.