Напишите процедуру, которая выводит на экран в столбик все цифры переданного ей числа, начиная с последней

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 program ch0; uses crt; var k, z, i : integer; begin writeln ('Введите число'); read (k); z:=0; while k>0 do begin z:=z*10; z:=z + (k mod 10); k:=k div 10; end; while z>0 do begin i:=z mod 10; z:=z div 10; writeln (i, ' '); end; end.