var a: integer;
begin
a:=(random(90000)+10000);
writeln(a);
while a>0 do
write (a mod 10);
a:=a div 10
end
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a: integer;
begin
a:=(random(90000)+10000);
writeln(a);
while a>0 do
begin
write (a mod 10);
a:=a div 10
end
end.