Ответ:

Uses Crt;var

y,x:Real;

Consta=15;b=30;

BeginClrScr;x:=(a+b/2)*(pi/180);

y:=sin(x);

Write(y);End.