Y=sinx-x x=b*sin2a пожалуйста помогите язык паскаль составте программу

Question

Y=sinx-x x=b*sin2a пожалуйста помогите язык паскаль составте программу

Answer 1

Var a,b,x,y:real;
Begin
Writeln('vvedi a,b ');
Readln(a,b);
X:=b*sin(2*a);
Y:=sin(x)-x;
Writeln('x=',x,'y=',y);
Readln;
End.