записать формулу в паскале

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.

перепроверьте на всякий случай, вдруг я мог где-то ошибиться