Задача 2 Урок 12.2 Repeat/Until

For, While и Repeat/Until в Паскаль -- связь между циклами и их взаимозаменяемость

{12-2.2 Имеется программа:}

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

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

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

{Перепешите её с помощью цикла for}

  for i:=0 to 99 do
      if (i mod 5 = 0) then
        write(i + 1, ' ');
   readln();
end.