Задача 2 урок 12.2

http://fkn.ktu10.com/?q=node/8811

У вас есть программа, использующая цикл while:
var
i: integer;
begin
i:=1;
while i begin
write(i, ' ');
i:=i+5;
end;

readln();
end.

Программа вывод на экран число 1 и все последующие с шагом 5(т.е 1, 6, 11 ... 99);

Вариант 1.
Используем цикл REPEAT/UNTIL

program task2_lesson12_2;
begin
  i := 1;
  repeat
    write(i, ' ');
    i := i + 5;
  until (i >100);
  readln();
end.

Вариант 2.
Используем цикл FOR

program task2_lesson12_2;
var i:integer;
begin
  write(1,' ');
  for i := 1 to 100 do
    begin
      if ((i mod 5) = 0) and (i < 100) then
      write(i+1, ' ');
    end;
  readln();
end.