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

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