Помогите, пожалуйста!!!)) Не могу отыскать ошибку в программке, только начали учить

Помогите, пожалуйста!!!)) Не могу отыскать ошибку в программке, только начали учить паскаль.


program zadanie;

uses crt;

var x,v,a,f,d:integer;

y:real;

begin

clrscr;

writeln ('vvedite x,v,a,f,d');

readln (x,v,a,f,d);


y:=(exp((2+x)*ln(cos(v-sqr(a)*a)))*(sqrt((sqr(sqr(sin(exp((x*v)*ln(v)))))*(sin(exp(
(x*v)*ln(v))))+f*d)/(sin(5*x)/cos(5*x)+(sqrt(sin(v*v))));



writeln(y= ', y);

readln;

end.