Проверьте, есть ли среди данных N чисел нули

Program Z_n; var a: array[1… 10000] of integer; N,c,i: integer; BeginReadln (N); For i: =1 to N do beginReadln (a[i]); // вводите числа через enterif a[i]=0 then c: =1; end; if c=1 then writeln ('YES') else writeln ('NO'); end.