Program n1;
type z = array of integer;  
var a: z;
i,d,n: integer;
procedure summa(a: array of integer);
var sum,i: longint;
begin
sum:=0;
for i:=0 to n-1 do if a[i] mod 13=0 then sum:=sum+a[i];
writeln('сумма эл. крат. 13: ',sum);
end;
procedure srar(a: array of integer);
var sum,k,i,t1,t2: longint;
begin
sum:=0;
k:=0;
for i:=0 to n-1 do 
begin
t1:= a[i] mod 10;
t2:= a[i] div 100;
if (t1=t2) and (a[i]>99) and(a[i]<1000) then
begin
k:=k+1;
sum:=sum+a[i];
end;
end;
writeln('ср. ариф. 3 зн. чисел, кот. нач. и ок. на од. цифру: ',sum/k);
end;
procedure ma(a: array of integer);
var max,i: longint;
begin
max:=0;
for i := 0 to n-1 do
if (a[i]>max) and (a[i]>9) and (a[i]<100) and (a[i] mod 2<>0) then max := a[i];
if max<>0 then
writeln(' наибольшее двузначное нечётное число: ',max)
end;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do readln(a[i]);
summa(a);
srar(a);
ma(a);
end.