Как решить ошибку при решении функции?

Question

[Swift-U]

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.

Добрый вечер, помогите, пожалуйста решить ошибку, при выводе выдает 106 ошибку, в паскале очень слад, заранее благодарю за помощь.

Comments

[hint000]

Ну вы хоть напишите текст ошибки и в какой строке обнаружена ошибка.

P.S. Не касаясь 106, у вас в задании просят двойную точность, а вы объявляете переменные типа real, надо double (если ничего не путаю, последний раз держал в руках Паскаль ~23 года назад).
В выражении под косинусом ошибка в расстановке скобок, в следующей строке точно такая же ошибка, при том, что в выражении под синусом - правильно. Ну и писать exp(3*ln(x)) вместо x*sqr(x) - это за гранью добра и зла (хоть и не ошибка).