// PascalABC.NET
begin
var n := Random(100, 10000);
n.Println;
while n > 0 do
Print(n mod 10);
n := n div 10
end
end.
// PascalABC.NET
begin
var n := Random(100, 10000);
n.Println;
while n > 0 do
begin
Print(n mod 10);
n := n div 10
end
end.