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

var sum,I,n : integer;beginsum : = 0;for i := 1 to 5 dobeginreadln(n);if (n mod 10 = 4) and (n mod 2 = 0) then sum := sum + i;end;writeln (sum);end.