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

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

var a, i: integer;
begin
    i := 55;
    repeat
    writeln(i);
    i := i + 1;
  until (i >= 9237);
  readln();
end.