Напишите программу, которая в последовательности целых чисел определяет количество чётных чисел, кратных 7. программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введённые числа по модулю не превышают 30 000. программа должна вывести одно число: количество чётных чисел, кратных 7. пример работы программы: входные данные выходные данные -32 14 17 0 1
write(' Введите число : ');readln(ch);if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);while ((ch<>0) and ( n <1001)) dobeginwrite(' Введите число : ');readln(ch);if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);inc(n);end;writeln(count);readln;end.