PascalABC.NET
begin
var n :=Random(100, 999);
n.Println;
Print('Цифры числа:');
while n > 0 do
Print(n mod 10);
n := n div 10;
end;
end.
