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

http://fkn.ktu10.com/?q=node/8811

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

readln();
end.
1. Вывод целых чисел от 5 до 34 на экран;
2. 5...34:

program task1_lesson12_2;
var i:integer;      // используем while
begin
  i := 5;
  while i<=34 do
  begin
    write(i, ' ');
    i := i + 1;
  end;
  readln();
end. 

program task1_lesson12_2;
var i:integer;       // используем repeat / until
begin
  i := 5;
  repeat
    write(i, ' ');
    i := i + 1;
  until (i > 34);
  readln();
end.