Помогите составить программу решения задачи на языке программирования Pascal

var a,b,x,s,w,y:real;begina:=1.5; b:=15.5; x:=-2.9;s:=sin(x+a);w:=sqrt(x*x+b)-b*b*s*s*s;y:=sqr(x*x*x)-x/sqrt(a*a+b*b);writeln('w = ',w,'  y = ',y);end.Результат:w = 234.804528324246  y = 595.00954777673