составить программу вычисления выражения y=sin(a+b/2) при a=15,b=30

P.s Pascal ABC

Uses Crt;var

y,x:Real;

Consta=15;b=30;

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

y:=sin(x);

Write(y);End.