Решение задачи 2 из главы 12.2

Решение задачи 2 из главы 12.2

2. У вас есть программа, использующая цикл while...Объясните что делает эта программа (что будет выведно на экран и почему).
Перепешите её с помощью цикла repeat/until.
Перепешите её с помощью цикла for.

- Цыклом выводятся целые числа от 1 до 100 с шагом 5. На экране будут выведены числа 1, 6, (и т.д., каждое последующее число считаем, прибавляя 5 к предыдущему).
- Перепешите её с помощью цикла repeat/until.

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

- Перепешите её с помощью цикла for.

program Project2;
var i: integer;
begin
i:= 1;
  for i:= 1 to 100 do
   if ((i mod 5) = 1) then
   writeln(i, ' ');
  readln();
end.