How to solve an error when solving a function?

Question

Mathematics

program m1;
uses crt;
var a,b,c,t,t1,x,z:real;
label 1;
begin
1:write('':5,' t <0 ili t=0 wwod znach a,b,c,x powtorno!');
clrscr;
write('':5,'wwod a ='); read(a);
write('':5,'wwod b ='); read(b);
write('':5,'wwod c ='); read(c);
write('':5,'wwod x ='); read(x);
t:=(sin(0.65*a*pi*(exp(3*ln(x)))/(cos(0.65*a*pi*(exp(3)*ln(x))))));
t1:=exp(c+(exp(0.2)*ln(x)));
if t<= 0 then goto 1;
z:=(b*sqr(cos(x))/sqrt(t))+(32.7*x*exp(3*ln(a))/t1);
writeln('':5,' t = ',t);
writeln('':5,'t1 = ',t1);
writeln('':5,' z = ',z);
end.

Good evening, please help me solve the error, it gives 106 error when outputting, it is very sweet in Pascal, thank you in advance for your help.