program liftas_v;
  { Katinai lifte; (14 olimp, I etapas, jaun. grupė }
  const PASK = 20; { paskutiniojo aukšto numeris }

 var myg, aukstas, n_aukstas, vaz, i: integer;
     pirmas, paskut: boolean;
begin
  readln (aukstas, myg);
  pirmas := aukstas = 1; { gal liftas pradėjo kilti nuo pirmo aukšto }
  paskut := false; { paskutiniame aukšte dar nebuvo }
  vaz := 0; { katinas dar nepervažoavo nė vieno aukšto }
  for i := 1 to myg do
    begin
      read (n_aukstas);
      if pirmas { jei jau buvo pirmame aukšte }
         then begin
           if not paskut { jei paskutinis dar nepasiektas }
              then
                 begin
                   paskut := n_aukstas = PASK;
                   vaz := vaz + abs (aukstas - n_aukstas);
                 end
           end
         else pirmas := n_aukstas = 1; { jei pirmame aukšte dar nebuvo }
       aukstas := n_aukstas;
    end;
  { išvedami rezultatai }
  if paskut
     then writeln ('TAIP')
     else writeln ('NE');
  writeln (vaz);
end.