Calculați produsul elementelor pare nenule, utilizînd instrucțiunea repeat

Program p1;
var n,p: real;
Begin
p:=1;
repeat
write('Introdu numarul:');
readln(n);
if n mod 2 = 0 then  p:=p*n;
until n=0;
writeln('Produsul elementelor pare nenule=', p:0:2);
readln;
End.