//fpc 3.0.0

program HelloWorld;
var a:integer;
begin
    a := random(1000);
    writeln('Число: ', a);
    writeln('Его цифры от сотен до единиц');
    while a > 0 do begin
        writeln(a mod 10);
        a := a div 10;
    end;
end.