program PascalGuru;
uses crt;
var A:array[1..100] of integer;
    i,j,summa,n,k,code,max,maxi:integer;
    s:string;
    f:text;
 
 
{--------------------------------------------}
begin
assign(f,'f.txt'); reset(f);
 
summa:=0;
i:=0; j:=0;
while not eof(f) do
      begin
      inc(i);
      readln(f,s);
      {writeln(s); }
      val(s,k,code);
      if (k mod 2<>0) and (k mod 11<>0) then
         begin
         inc(j);
         if j=1 then begin max:=k; maxi:=i; end
                else
                if k>max then begin max:=k; maxi:=i; end;
         summa:=summa+k;
         end;
 
      end;
 
 
writeln ('Summa: ',summa);
writeln ('MAX: ',max);
writeln ('MAX[i]-"nomer": ',maxi);
 
close(f);
readln;
end.