Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 4 и оканчивающихся на 0. Программа получает на вход целые
числа, количество введеных чисел неизвестно, последовательность чисел заканчивается числом 0 (0-признак окончания ввода, не является членом последовательности). Количество чисел не превышает 1000. Введеные числа по модулю не превышают 30000. Программа должна вывести число: количество чисел, кратных 4 и оканчивающихся на 0.

А можно где mod и div?

Var  a,c:integer;BeginWriteln('Вводите числа (через Enter)');  repeat    Readln(a);    if (a<>0) and ((a mod 10) = 0) and ((a mod 4) = 0) then inc(c);  until a=0;  Write('Количество чисел кратных 4 и оканчивающихся на 0 равно ',c);End.