Найти количество чисел из a b c d равных 0

var a,b,c,d,x: integer;beginx:=0;readln(a,b,c,d);if a=0 then inc(x);if b=0 then inc(x);if c=0 then inc(x);if d=0 then inc(x);writeln(x);end.