Var a,b:integer; y:real; begin cls; a:=2; b:=4; y:=sqr(a+3.7)/(b)+(a-4.5*b)/(3.2-b); write('y=',y:6:2) end.
А что с задачей? какое условие ?