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

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