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

var n,i,a,s:integer;beginwriteln('Количество чисел = ');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.Пример:Количество чисел = 5156-654301104972s = -550