Найти произведение четных чисел оканчивающихся на 4 в паскаль

program dsa;

var a, proz : integer;

begin

writeln('a = ');

read(a);

if (a mod 10 = 4) then

proz := proz * a;

write(proz);

end.