Написать программу вычисления значения функции

[Rita48]

Помогите пожалуйста написать программу вычисления значения функции U, зависящей от нескольких аргументов, значения которых выбираются произвольно и задаются по вводу.

[Stilet]

var,a,b,x,y:double;
begin
 readln(x); readln(y);
 if (x=1) or (sin(x+2)<>(-1/(x*x*x+1))) then begin
   write('stopwar'); readln; halt;
 end;
 a:=
  (1+y)*
  (
    x+y/(x*x+4)
  )/(
    sin(x+2)+1/(x*x*x+1)
  )
 ;
 b:=sqr(sin(x-2))+ln(x*x+1)+exp(x*cos(x));
 if b>a write('b=',b) else write('a=',a); readln;
end.

Годится?
Не проверял.