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

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