Если входные данные - градусы.

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.