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

http://fkn.ktu10.com/?q=node/8674
Выведите на экран, все числа от 55 до 9236

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