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

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

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

var
  i : integer;
begin
  i:= 55;
  repeat
    write(i, ' ');
    i:= i + 1;
  until (i>9236);
  readln;
end.