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

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

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

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

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

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

  i:=1;
  repeat
    write(i, ' ');
    i:=i+5;
  until i>=100 ;
  writeln();

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

  readln();
end. 

КОНСОЛЬ:

1 6 11 16 21 26 31 36 41 46 51 56 61 66 71 76 81 86 91 96
1 6 11 16 21 26 31 36 41 46 51 56 61 66 71 76 81 86 91 96
1 6 11 16 21 26 31 36 41 46 51 56 61 66 71 76 81 86 91 96