Код ниже (+ прикрепил скриншот):
var x,rslt: real;
begin
write('Enter x: x = ');
readln(x);
rslt:= (x+7)/(x*x-sqrt(2))-(sin(2*x))/(cos(2*x));
write('Your answer - ',rslt:0:2);
end.
