N=input()
for i in N:
    print(i,end='(То значение, коим нужно разделить. Либо пробел, либо \n)')

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