Pascal Ввести с клавиатуры x, y и вычислить, используя метод промежуточного аргумента: .

var
z, x, y, k, n:float;
begin
writeln('Введите x, y');
readln(x,y);
k:=sqr(sin(x*y-x-y);
n:=exp(ln(3)*(x+y-x*y));
z:=k-n;
writeln('Ответ: ', z);
readln;
end.

писал тут, так что за ошибки не ручаюсь.