Посчитайте количество нулей в последовательности целых чисел, вводимых пользователем. Программу написать на языке

program ex34;{количество нулей в последовательности }
uses CRT;
var i,n,x,k : integer;
begin
ClrScr;
Write('Введите длину последовательности N= ');
ReadLn (N);
k:=0; {исходно кол-во нулей}
for i:=1 to N do
begin
Write('Введите целое число x: ');
ReadLn (x);
if x=0 then k:=k+1
end;
if k>0 then
Write('Число нулей в последовательности=', k:4)
else
Write(' Нулей нет');
ReadLn;
end.