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.
Пользуйтесь на здоровье, у меня на компе осталась эта программа...