Требуется использовать язык паскаль даны три целых числа a, b, c. значения чисел вводятся с клавиатуры. определить количество нулей среди данных чисел. результат вывести на экран.

Program nyli;
var  a, b, c, d: longint;
begin  d := 0;  Readln(a, b, c);  if a = 0 then d := d + 1;  if b = 0 then d := d + 1;  if c = 0 then d := d + 1;  Writeln('');  Writeln(d);end.