Ответ Автор - Omikami Ответ:var i, sum:integer; begin sum := 0; for i := 1 to 100 do sum := sum + i; write(sum);end.