Если входные данные - градусы.
Program n_1;
uses math;
var x, y, z:real;
begin
read(x, y);
z:=Power(2, (-x))*cos(x*Pi/180)+sin((2*x*y)*Pi/180);
writeln(z:0:10);
end.
Если входные данные - радианы.
Program n_1;
uses math;
var x, y, z:real;
begin
read(x, y);
z:=Power(2, (-x))*cos(x)+sin(2*x*y);
writeln(z:0:10);
end.
