запросить 40 чисел подсчитать количество чисел равных 0

Program n1;var i,k,a: integer;begink:=0;for i:=1 to 40 do beginreadln(a);if a=0 then k:=k+1; end;write(k); end.