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

Question

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

Answer 1

var

x,y:real;

begin

readln(x);

y:=7*sin(x)*sin(x)-0.5*cos(x);

writeln(y);

end.