Урок №12.1 Задание 3

Урок №12.1 Задание 3

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

program Pr12_1_3;
var i:integer;

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

Консоль:

9165  9166  9167  9168  9169  9170  9171  9172  9173  9174  9175  9176  9177  9178  9179  9180  9181  9182  9183  9184  9185  9186  9187  9188  9189  9190  9191  9192  9193  9194  9195  9196  9197  9198  9199  9200  9201  9202  9203  9204  9205  9206  9207  9208  9209  9210  9211  9212  9213  9214  9215  9216  9217  9218  9219  9220  9221  9222  9223  9224  9225  9226  9227  9228  9229  9230  9231  9232  9233  9234  9235