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

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

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

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

Перепишите её, используя цикл while.
Перепишите её, используя цикл repeat/until.

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

program lesson12_2_1;
var
    i: integer;
begin
    i := 5;
    repeat
        write(i, ' ');
        i := i + 1;
	until i > 34;
	readln();
end.