Вводится число N, а затем N чисел

Ловите, сам написал, сам проверил, все работает.var input, num, nulls, i: integer; beginwrite ('Введите кол-во чисел: '); readln (input); for i: =1 to input do begin write ('Введите число номером ', i, ': '); readln (num); if num=0 then inc (nulls, 1); end; writeln ('Кол-во нулей: ', nulls); end.