Program lr1; {åã©: ‚ à¨ ­â 8:} 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.