Написать программу в которой задано целое число n и выводится каждая его цифра в столбец. На ABC. Pascal

program zz1;

var n, k:integer; / / задаем переменные целого типа

begin

write (' введите любое число ');

read (n); / / вводим с клавиатуры число

while n>0 do / / организуем цикл, пока в заданном числе есть цифры

begin

k:=n mod 10; / / получаем последнюю цифру, разделив число на десять и взяв от деления остаток

writeln (k); / / выводим полученную цифру на экран в столбец

n:=n div 10; / / отбрасываем ее из исходного числа, разделив число на десять и взяв от деления целую часть

end;

end.