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

http://fkn.ktu10.com/?q=node/8811
Перепишите её, используя цикл while.

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
write(i, ' ');
 i:=i+1;
 until i>34;
  readln();
end.