Дано 5 чисел, определить сумму четных заканчивающихся на 4 через паскаль

Var sum,I,n : integer;
begin
sum : = 0;
for i := 1 to 5 do
begin
readln(n);
if (n mod 10 = 4) and (n mod 2 = 0) then sum := sum + i;
end;
writeln (sum);
end.