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

Имеется программа:

var i: integer;
begin
  for i:=5 to 34 do
    write(i, ' ');
 
  readln();
end. 

Ответьте на вопросы/выполните задания
Перепишите её, используя цикл while.
Перепишите её, используя цикл repeat/until.

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

  readln();
end.}


var i: integer;
begin
  i := 5;
  repeat
    writeln(i);
    i := i + 1;
  until (i > 34) ;
  readln();
end.