Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся на 4. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, оканчивающееся на 4. количество чисел не превышает 1000. введённые числа не превышают 30000. программа должна вывести одно число - сумму чисел, оканчивающихся на 4.
На паскале
var
i, s, n, z: integer;
begin
s:=0;
readln (n);
for i:= 1 to n do
begin
Readln (z);
if z mod 10 = 4 then s:= s+z;
end;
writeln (s);
end.