Заданы числа X1, . . . . , X10. Определить для скольких их них функция F=sin(A*xi +фи ) принимает отрицательные значения — Pascal(Паскаль)

uses crt;
function f(a,x:real):real;
begin
 f:=sin(a*x+(sqrt(5)+1)/2);
end;
var
x: array [1..10] of real;
i,a,otr:integer;
begin
writeln('vvedite a');
readln(a);
otr:=0;
for i:=1 to 10 do
begin
writeln('vvedite X',i);
readln(x[i]);
if f(a,x[i])<0 then otr:=otr+1;
end;
writeln('otvet - ',otr);
end.