Помочь паскаль.Ошибка в коде

Доброго времени суток друзья, решил сделать домашнюю работу, но не понимаю в чем ошибка

program Hello; // Pascal [fpc 3.0.4]
var x,y,f,d:Integer;
begin
writeln('x');
readln(x);
y:=0;
d:=0;
f:=1;
while d<=9 do
d:=d+1;
f:=f*x;
y:=y+f*sin(d*Pi)/5);
writeln('y=',y:5:2);
readln;
end.
end.