program lab_03; var a, b,c :real; begin writeln('BBEDUTE a'); readln(a); b:=ln(a)/ln(2); c:=ln(sqrt(a)/ln(7)); writeln('b = ',b:2:2); writeln('c = ',c:2:2); readln end.