Ввести с клавиатуры несколько чисел,вычислить сумму чисел оканчивающихся ** 4 pascal

Question

Ввести с клавиатуры несколько чисел,вычислить сумму чисел оканчивающихся на 4 pascal

Answer 1

Var n,i,a,s:integer;
begin
writeln('Количество чисел = ');
readln(n);
for i:=1 to n do
 begin
 readln(a);
 if abs(a) mod 10=4 then s:=s+a;
 end;
writeln('s = ',s);
end.

Пример:
Количество чисел = 5
156
-654
301
104
972
s = -550