Program huy;
Var r,t,m,k:real;
begin
write('r='); readln(r);
write('k='); readln(k);
t:=sqr(cos(pi*r));
t:sqrt((t+k*0.01)/(t*abs(m/k)));
m:=Ln(cos(Pi*r));
writeln('t:=',t);
writeln('m:=',m);
End.