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

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

У вас есть программа, использующая цикл while:
var
i: integer;
begin
i:=1;
while i begin
write(i, ' ');
i:=i+5;
end;

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

Ответ:
1) Программа в цикле выводит числа от 1 до 100 с шагом 5.
2)

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

3)

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