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

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

У вас есть программа, использующая цикл while:

var
   i: integer;
begin
  i:=1;
  while i<=100 do
  begin
    write(i, ' ');
    i:=i+5;
  end;
 
  readln();
end.

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

1. Выводит на экран числа с шагом 5. в диапазоне от 1 до 100 начиная с 1.
2. Перепись с помощью цикла repeat/until

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

3. Перепись с помощью цикла for

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