Question

информатика помогите пожалуйста

Answer 1

var x,y: real;

begin

readln(x);

y:=((x*x-4)/(3*x+1))*(sqrt(3)/2)-(x+7)*(x+7);

write('y=',y);

end.