Задача 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 6 11 16 21 26 ..... 91 96 потому что в каждой итерации цикла к изначальному значению пкркменной будет прибавляться 5, крайнее значение 96 потому что следующий шаг цикла уже не будет удовлетворять условию (i

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

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