program luka;
var a, i: integer;
begin
  a:= random(900)+100;
  writeln('Получено число', a, '.');
  writeln('Его цифры:', a div 100, ', ', (a div 10) mod 10,', ',  a mod 10, '.');

end.