program mn;
uses crt;
var a:array[1..100]of integer;
i,s,n,aa:integer;
procedure vvod(var l:integer);
var g:integer;
begin
randomize;
for g:=1 to l do
begin
a[g]:=random(30)+2;
write(a[g]:3);
end;
writeln;
end;
BEGIN
ClrScr;
Write('N,A:');
readln(n,aa);
vvod(n);
for i:=1 to n do
if (a[i]>0)and(a[i] then inc(s);
writeln(s);
readln;
END.