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. ЧТО ЗДЕСЬ НЕПРАВИЛЬНО?
После write ('y=',y:6:2) нету ;