Найти произведение четных чисел в промежутке от 23 до 5

Var i,s:longint;
begin s:=1; 
for i:=23 downto 5 do
beginif (i mod 2 = 0)
then s:=s*i;
end;
writeln(s);
end.