Написать программу вычисления значения выражения: sin2*sin4*sin6*…*sin2n при заданном n (цикл «до»)

Var
n:integer;
x,p:real;
begin
    x:=2;p:=1;
writeln('N?');
readln(n);
       repeat
           p:=p*Sin(x);
           x:=x+2;
       until x>n*2;
writeln('p: ',p:4:2);
end.