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

Вопрос от посетителя:

переведите на язык 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.