Pascal :

program ex(input,output);
var
  a,bw,sw,gw:integer;
begin
  while not eof(input) do
   begin
    readln(a);
    bw:=a div 100;
    sw:=(a - bw*100) div 10;
    gw:=a mod 10;
    writeln(gw,sw,bw);
   end;
end.