Напишите программу, которая печатает все цифры заданного числа по одной в каждой строке начиная с последней цифры. в качестве входных данных допускается ваодить чтсла от 0 до 2 000 000 000

Var
    n: longint;
begin
    readln(n);
    while n > 0 do
    begin
        writeln(n mod 10);
        n := n div 10;
    end;
end.