Program enot;
Var a: array[1..20] of integer;
i,h:integer;
begin
h:=0;
for i:=1 to 20 do 
 begin
 a[i]:= random (90)+10;
 if a[i]=35 then h:=h+1;
 end;
write(h);
end.