Урок 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

1. В цикле while будет вывод ряда чисел от 1 до 96, где каждое выведенное число начиная с единицы будет увеличиваться на 5 (1, 6, 11,...96).
2. var i : integer;
   begin
   i := 1;
   repeat
   write(i, ' ');
   i := i + 5;
   until (i > 100);
   readln();
   end.
3. var i : integer;
   begin
   for i := 1 to 100 do
   begin
   if (i mod 5 = 1) then
   write(i, ' ');
   end;
   readln();
   end.