Program z_1;

var k,i:integer;

  begin  

k:=0;

    for i:=10 to 99 do

      if (i mod 2<>0) and (i mod 5<>0) then k:=k+1;

     write(k);

      end.