Var
 N:Word;
Begin
 Write('N= ');
 Readln(N);
 Writeln(N div 100);
 N:=N mod 100;
 Writeln(N div 10);
 N:=N mod 10;
 Writeln(N);
 Readln
End.