Question

1 задание помогите ​

Answer 1

Ответ:

var

 i, sum:integer;

begin

 sum := 0;

 for i := 1 to 100 do

   sum := sum + i;

 write(sum);

end.