program a7; var a:real; b:integer; begin ReadLn(a); a:=a*100; b:= Trunc (a); b:=b mod 100; writeln(b); a:=(b div 10) + (b mod 10); writeln(a); end.