var
x, y, e: integer;
p: real;
begin
write('x, y, e: ');
readln(x, y, e);
p:= ((ln(x) / ln(10)) - exp(ln(e) * (x + y))) / (sqrt(2) + sqr(y) + abs(sqr(x)* x - ln(y)));
writeln(p);
end.
перепроверьте на всякий случай, вдруг я мог где-то ошибиться
var
x, y, e: integer;
p: real;
begin
write('x, y, e: ');
readln(x, y, e);
p:= ((ln(x) / ln(10)) - exp(ln(e) * (x + y))) / (sqrt(2) + sqr(y) + abs(sqr(x)* x - ln(y)));
writeln(p);
end.
перепроверьте на всякий случай, вдруг я мог где-то ошибиться