Почему появляется ошибка в 9 строчке
program Z1_Z2;
Const p=3.14;
Var a,Z1,Z2: real;
Begin
Writeln(' Введите a');
Readln(a);
Z1:=(Sin(4*a)/(1+Cos(4*a)))*(cos(2*a)/(1+Cos(2*a)));
Z2:=(cos((3/2)*p-a))/(sin((3/2)*p-a))
Writeln ('z1=',z1,' z2=',z2);
End.