Решение задачи 1 из главы 12.1

Решение задачи 1 из главы 12.1

Выведите на экран, все числа от 55 до 9236.

program Project1;
var i: integer;
begin
  i :=55;
  repeat
    write(i, ' ');
    i := i + 1;
  until (i>9236);

  readln();
end.