На языке Паскаля вводятся элементы найти сумму чисел которые делятся на 4 и оканчиваются на 4

program zz1;

var a, n, i, m:integer; / / задаем переменные целого типа

begin

write (' введите n '); / / вводим с клавиатуры сколько будем вводить чисел последовательности

read (n);

for i:=1 to n do / / организуем цикл на n повторений

begin

read (a); / / вводим очередное число последовательности

if (a mod 4 = 0) or (a mod 10 = 4) then m: = m + a; / / проверяем, если число делится на 4 или оканчивается на 4, то добавляем его к сумме

end;

write (' сумма найденных чисел = ', m); / /выводим ответ

end.