program primer;
var
f,x:real;
begin
writeln('Vvedite luboe chislo');
writeln('x=');
readln(x);
if x > 0 then
begin
f := exp (3*ln(x)) / sqrt(3) - exp (x) * abs (ln (exp (3*ln(1.37)))) + exp(3*ln(x)) + (4/3);
writeln ('f=',f);
end;
if x <= 0 then
begin
writeln ('else');
f := ( exp (3*ln(x))) + sqrt (7) / cos (x - 2 * Pi) - abs ( ln (exp (3*ln(x)))) + 4 * (sin(x)/cos(x));
writeln ('f=',f);
writeln ('Uslovie ne vipolnaetsa');
end;
readln;
end.