var a: array [1..15] of integer;
    k: array [1..15] of integer;
    i, m, s, c: integer;
begin
     m := 1;
     for i := 1 to 15 do
     begin
          a[i] := random(20);
          writeln('a[', i, '] => ', a[i]);
          if (i mod 2 = 0) then s := s + a[i];
          if (i <= 10) then k[i] := a[i] * 2;
     end;
     m := a[1] * a[6] * a[11];
     c := k[1];
     for i := 2 to 10 do
     begin
          if (k[i] > c) then c := k[i];
     end;
     for i := 1 to 10 do
          writeln('k[', i, '] => ', k[i]);
     writeln('max(a[1], a[6], a[11]) = ', m);
     writeln('sum(a[i]/2) = ', s);
end.