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

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

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

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

Перепешите её с помощью цикла repeat/until
Перепешите её с помощью цикла for

program lesson12_2_2;
var
    i: integer;
begin
    i := 1;
    repeat
        write(i, ' ');
        i := i + 5;
    until i > 100;
  readln();
end.

program lesson12_2_2;
var
    i: integer;
begin
    for i := 1 to i <= 100 do
        if i mod 5 = 1 then
            write(i, ' ');
    readln();
end.