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

program fantscrin;

   const n =20;

   var i,s:integer;

       a: array [1..n] of integer;

begin

    for i:=1 to n do

       a[i]:=random(5);  

    for i:=1 to n do

       write(a[i], '  ');

    writeln('');

    s:=0;

    for i:=1 to n do

       if(a[i]=0) then s:=s+1;

    writeln(s);

end.