Помогите найти ошибку!

Question

Program n3; 
Var a,y,b:integer;z,x,f:real; 
Begin 
Writeln('Введите a'); 
readln(a); 
Writeln('Введите y'); 
readln(y); 
Writeln('Введите b'); 
readln(b); 
z:=sqr(sin)*(a((3*sqr(y))-1/3))+10.5; 
x:=sqr(cos)*(a((3*sqr(y))-1/4))+b; 
f:=z/x; 
Write('y=',y:5:5); 
readln; 
readln; 
end.

Alex · Accepted Answer

чего вы хотите добиться от этих строк: 
z:=sqr(sin)*(a((3*sqr(y))-1/3))+10.5; 
x:=sqr(cos)*(a((3*sqr(y))-1/4))+b; 
 
почему вы хотите возвести процедуры sin и cos в квадрат? :))