Составить программу по паскалю y=sin(2a2)- корень из a2+11, x=-0,9 ,a=x* 2/tg2(квадрат)x

var x,y,a,tg :real;
begin
x:=-0.9;
a:=x*2/tgsqr(x);y:=sin(2a2)-sqrt(a2+11);
writeln(y);
end.