[dr. F.I.N.]

Код:

Задача: Посчитать сумму чисел от 1 до 100

Код:

Решение с помощью While:
...
i := 1;
s := 0;
while i >= 100 do
begin
  s := s + i;
  Inc(i);
end;
...

Код:

Решение с помощью Repeat-Until:
i := 1;
s := 0;
repeat
  s := s + i;
  Inc(i);
until i > 100;