Pascal :

var a:longint;
begin
  readln(a);
  writeln(a mod 10);
  writeln(a div 10 mod 10);
  writeln(a div 100 mod 10);
  writeln(a div 1000 mod 10);
  writeln(a div 10000);
end.