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

program zz1;

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

begin

write( введите хоть какое число );

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

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

begin

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

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

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

end;

end.