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

Урок 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<35 do
    begin
      write(i, ' ');
      i:=i+1;
    end;

  readln();
end.




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

  readln();
end.