Ответ Проверено экспертом Автор - AnonimusPro var x,y: real;beginreadln(x);y:=((x*x-4)/(3*x+1))*(sqrt(3)/2)-(x+7)*(x+7);write('y=',y);end.