Verified answer

var i: integer;

   p: real;

begin

 p:=1;

 for i:=10 to 99 do

 if i mod 2=0 then p:=p*i;

 write ('произведение равно: ',p);  

end.