var a,b,c: integer ;
begin
writeln ('Введите число:');
read (a);
b:=0;
while a>0 do begin
b:=b*10;
b:=b + (a mod 10);
a:=a div 10;
end;
while b>0 do begin
c:=b mod 10;
b:=b div 10;
writeln (c, ' ');
end.
