program skaiciaus_spejimas;
  { 122 u‘davinys }
  const max = 6; { sp‚jam— skaitmen— sekos ilgis }

  function kiek_skaitm (n : integer) : integer;
  { kiek skai‡ius n turi skirting— skaitmen— }
    var k : integer; { skirting— skaitmen— skai‡ius }
        buvo : set of 0..9;
  begin
    k := 0;  buvo := [];
    while n <> 0 do
      begin
        if not ((n mod 10) in buvo)
           then begin
                  buvo := buvo + [n mod 10];
                  k := k + 1
                end;
        n := n div 10
      end;
    kiek_skaitm := k
  end;

  function atspeta (n, s : integer) : boolean;
    { ar skaitmuo s yra skai‡iuje n }
         var yra : boolean;
   begin
     yra := false;
     while not yra and (n <> 0) do
       begin
         yra := n mod 10 = s;
         n := n div 10;
       end;
     atspeta := yra
   end;

   var n,      { sugalvotas skai‡ius }
       sk,     { sp‚jamas skaitmuo }
       liko,   { liko neatsp‚ta skaitmen— }
       ats,    { atsp‚ta per tiek bandym— }
       i : integer;
begin
  write ('­veskite skai‡i—, kur reikia atsp‚ti: ');
  readln (n);
  liko := kiek_skaitm (n);
  ats := 0;
  for i := 1 to max do  { žeži sp‚jami skaitmenys }
    begin
      write ('­veskite ', i,'-t…j sp‚jam… skaitmen: ' );
      readln (sk);
      if atspeta (n, sk)                  { jei atsp‚tas vienas skaitmuo }
         then liko := liko - 1;
      if (liko = 0) and (ats = 0)
         then ats := i; { atsp‚ta per i sp‚jim— }
    end;
  if liko > 0
     then writeln ('NE ', liko)
     else writeln ('TAIP ', ats)
end.


