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

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

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

var
i: integer;
begin
i:=1;
while i begin
write(i, ' ');
i:=i+5;
end;

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

program u12z3;
var i,a,b,c: 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();

   i:=0;
   for i:= 0 to 100 do

    begin
      if ((i mod 5 = 0) and (i <> 100))then
      write (i + 1, ' ');

    end;


  readln();
end.