program Project2;
{$APPTYPE CONSOLE}
var a:array[1..100] of integer;
i,n,S:integer;
begin
writeln('Vvedit kilkist kaktusiv');
readln(n);S:=0;
for i:=1 to n do begin
writeln('Vvedit skilki golok na ',i,' kaktusi');
readln(a[i]);
if a[i]=0 then
S:=S+1;end;
writeln('Divchynka ne ditalasia do ',S,' kaktusiv');
readln;
end.