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.