Дано A, B, C, M, P, H. Сколько среди них нулевых значений? - Free Pascal

Формулировка задачи:

Дано A, B, C, M, P, H. Сколько среди них нулевых значений? Начальные данные: A=10, B=0, C=M=P=2, H=0. Заранее спасибо.

Решение задачи: «Дано A, B, C, M, P, H. Сколько среди них нулевых значений?»

Листинг программы

const A=10; B=0; C=2;M=2;P=2; H=0;
var cnt:integer;
begin
 if a=0 then inc(cnt);
 if b=0 then inc(cnt);
 if c=0 then inc(cnt);
 if m=0 then inc(cnt);
 if p=0 then inc(cnt);
 if h=0 then inc(cnt);
 write(cnt,' ненулевых');
readln;
end.

Объяснение кода листинга программы

В коде используются константы A, B, C, M, P, H, которые содержат некоторые значения.
Переменная CNT инициализируется значением 0 и используется для подсчета количества ненулевых значений.
В цикле проверяется каждое из значений A, B, C, M, P, H.
Если значение равно 0, то увеличивается счетчик CNT.
После проверки всех значений выводится сообщение с количеством ненулевых значений.
Ввод с клавиатуры позволяет перейти к следующему вопросу.