Question

Напишите программу,которая выводит на экран числа в диапозоне от 1000 до 9999

Answer 1

uses crt;

var i: integer;

begin

clrscr;

for i:=1000 to 9999 do

writeln(i);

readln;

end.