program SumNumbers;vari, sum: integer;beginsum := 0;for i := 1 to 100 dobeginsum := sum + i;end;
writeln('Сумма чисел от 1 до 100: ', sum);end.
program SumNumbers;
var
i, sum: integer;
begin
sum := 0;
for i := 1 to 100 do
begin
sum := sum + i;
end;
writeln('Сумма чисел от 1 до 100: ', sum);
end.