uses crt;
var i: integer;
begin
clrscr;
for i:=1000 to 9999 do
writeln(i);
readln;
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
uses crt;
var i: integer;
begin
clrscr;
for i:=1000 to 9999 do
writeln(i);
readln;
end.