program PrintDigits;

var
num, digit: integer;

begin
writeln('Введите число:');
readln(num);

while num > 0 do
begin
digit := num mod 10;
writeln(digit);
num := num div 10;
end;
end.