Переведите на язык pascal : 7(sin^2)*X-(1/2)*cosX

var x,y:real; begin readln(x); y:=7*sin(x)*sin(x)-0.5*cos(x); writeln(y); end.