( Pascal ABC.net )Составьте программу:Дано 5-ти значное число (78906)с помощью div и...

Question

( Pascal ABC.net )
Составьте программу:
Дано 5-ти значное число (78906)
с помощью div и mod
нужно выделить цифры из числа.

Answer 1

Var
    k: integer;

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