var i, p: integer;
begin
p:=1;
for i:=10 to 99 do
if i mod 2=0 then p:=p*i;
write ('произведение равно: ',p);
end.
var i, p: integer;
begin
p:=1;
for i:=10 to 99 do
if i mod 2=0 then p:=p*i;
write ('произведение равно: ',p);
end.