var a,dec,hun,one:integer;
 begin
  writeLn('Ââåäèòå ÷èñëî');
  writeln;
  readln(a);
  one:=a mod 10;
  a:=a div 10;
  dec:=a mod 10;
  a:=a div 10;
  hun:=a mod 10;
  a:=a div 10;
  writeln(hun);
  writeln(dec);
  writeln(one);
  end.