Question

Напишите программу выводящую на экран сумму от 1 до 100

Answer 1

Ответ:

var

i, a: integer;

begin

a := 0;

for i := 1 to 100

do

a := a + i;

writeln(a);

end;