uses crt;
var a:real;
begin
ClrScr;
Readln(a);
Writeln('K=',trunc(a) div 10 mod 10);
Writeln('P=',trunc(a*10) mod 10);
Readln;
end.
uses crt;
var a:real;
begin
ClrScr;
Readln(a);
Writeln('K=',trunc(a) div 10 mod 10);
Writeln('P=',trunc(a*10) mod 10);
Readln;
end.