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

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.