Задача на условие IF и цикл WHILE. Pascal

Скачать задачу на условие IF и цикл WHILE(с ответом)

Необходимо написать программу, которая в последовательности
чисел определяет количество чисел больше 10.
Программа работает по следующему алгоритму:
Вы вводите с клавиатуры последовательность целых чисел. Их
может быть неограниченное количество.
Ввод чисел останавливается числом 0.
В конце работы программы выводится количество чисел со
значением больше 10.