помощью цикла repeat/until

Задача №2 из главы 12.2

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

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

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