Определить произведение чётных чисел в диапазоне от 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