Помогите решить задачку

[Volshebstvo]

[Donald Ervin Knuth]

program test32;
const
pp=3.14;
var
m,n,t,z,a,b,x,y:real;
begin
writeln('Задайте m=');readln(m);
writeln('Задайте n=');readln(n);
writeln('Задайте t=');readln(t);
z:=m+10;
b:=n+m*m*m; {-- :-) }
a:=n*t-1;
x:=z*z+m*n;
y:=cos(a*x)+(sin(b*x)/cos(b*x))+pp/2;
writeln('Результат y=',y);
end.