Составить программу вывода на экран всех цифр

program zz1;

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

begin

write (' введите заданное натуральное число '); / / вводим число с клавиатуры

read (k);

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

begin

s:=k mod 10; / / получаем последнюю цифру числа

k:=k div 10; / / отбрасываем ее из числа

a:=a + 1; / / считаем номер цифры в заданном числе

writeln (a,'-я цифра числа = ', s); / / выводим ответ

end;

end.