uses crt;
const n=5;
var a:array[1..n] of integer;
   i,j,k:integer;
   m:integer;
   flag:boolean;
   nfind1,nfind2,nfind3:integer;

Begin
  clrscr;
  readln(m);
  for i:=1 to n do
   readln(a[i]);
  i:=1;
  while (i<=n-1)and(not(flag)) do
   begin
      j:=i+1;
      while (j<=n-2)and(not(flag)) do
       begin
          k:=j+1;
          while (k<=n)and(not(flag)) do
           begin
              if a[i]+a[j]+a[k]=m then
               begin
                  flag:=true;
                  nfind1:=i;
                  nfind2:=j;
                  nfind3:=k;
               end;
              inc(k);
            end;
           inc(j);
       end;
      inc(i);
  end;
  writeln;
  if not(flag) then writeln('NO')
   else
      begin
         writeln('i=',nfind1);
         writeln('j=',nfind2);
         writeln('k=',nfind3);
      end;
  readln;
end.

uses crt;
const n=20;
var
 a:array[1..n] of integer;
 i,j,k:integer;
 m:integer;

Begin
 clrscr;
 readln(m);
 for i:=1 to n do
   readln(a[i]);
 for i := 1 to n - 1 do
   for j := i + 1 to n - 2 do
     for k := j + 1 to n do
       if a[i]+a[j]+a[k]=m then
         begin
           writeln( 'i = ', i, ' j = ', j, ' k = ', k ); exit
         end;
 writeln('no');
 readln;
end.