Сделать программу в количество элементов удостоверяющих условию-0.5

Я сто лет не делал блок-схемы, но должно быть правильно.

Я не проверял работает ли программа правильно, но она работает ошибки не выдает. Если что не правильно сможешь подправить.

Задача сделана на языке паскаль, при
Оформление сделана как для студенческой задачи

Если есть вопросы пиши в личку