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

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

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

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

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

  readln();
end.  }


var
   i, a: integer;
begin
  for i:= 1 to 100 do
  if ((i mod 5) = 1) then
  begin
  writeln(i);
  end;
  readln();
end.