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

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

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

var i: integer;
begin
  for i:=5 to 34 do
    write(i, ' ');
  readln();
{Перепишите её, используя цикл while. }
  i:=5;
  while (i <= 34) do
    begin
      write(i, ' ');
      i:= i + 1;
    end;
  readln();
{Перепишите её, используя цикл repeat/until.}
   i:=5;
   repeat
     begin
      write(i, ' ');
      i:= i + 1;
    end;
   until(i > 34) ;
end.