Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 4 и оканчивающихся на 0. программа получает на вход целые числа, количество введеных чисел неизвестно, последовательность чисел заканчивается числом 0 (0-признак окончания ввода, не является членом последовательности). количество чисел не превышает 1000. введеные числа по модулю не превышают 30000. программа должна вывести число: количество чисел, кратных 4 и оканчивающихся на 0.
a,c:integer;
Begin
Writeln('Вводите числа (через 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.