Определить произведение чётных чисел в диапазоне от 1 до 10 в программе pasqal abc

Var i,p: integer;
begin
  i:=2;
  p:=1;
  repeat
    p:=p*i;
    i:=i+2;
  until i>10;
  writeln('произведение: ',p);
end.

произведение: 3840