Задача 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

С помощью repeat/until:

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

С помощью for:

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