Ввести три числа с клавиатуры. найти и напечатать количество чисел равных нулю ,

Var a,b,c,i:integer;
begin
 i:=0;
 Write('1-число='); Readln(a);
  Write('2-число='); Readln(b);
  Write('3-число='); Readln(c);
if a=0 then i:=i+1;
if b=0 then i:=i+1;
if c=0 then i:=i+1;
Writeln(i,' чисел равных нулю');
end.