Составить программу, подсчитывающую среднее количество путевок, проданных на курорты в каждом месяце, и определяющую месяц, в которых продажи в средн

const
  nmax=20;
  k=3;
type
  curort=record
    name: string[20];
    kolv: array[1..k] of integer;
    cena: integer;
  end;
var
  a: array[1..nmax] of curort;
  n,i,j,m: byte;
  sum,max: integer;
begin
  write('Сколько курортов в списке? ');
  readln(n);
  for i:=1 to n do
    with a[i] do
    begin
      write(i,'-е место отдыха: ');
      readln(name);
      writeln('  Сколько продано путевок?');
      for j:=1 to k do
      begin
        write(j,'-й месяц: ');
        readln(kolv[j]);
      end;
      write('  Цена путевки? ');
      readln(cena);
      writeln;
    end;
  sum:=0; max:=0;
  for i:=1 to n do
    max:=max+a[i].kolv[1];
  m:=1;
  writeln('В 1-м месяце продано в среднем ',max/n:0:2,' путевок');
  for j:=2 to k do
  begin
    sum:=0;
    for i:=1 to n do
      sum:=sum+a[i].kolv[j];
    if sum>max then 
    begin
      max:=sum;
      m:=j;
    end;
    writeln('В ',j,'-м месяце продано в среднем ',sum/n:0:2,' путевок');
  end;
  writeln('Максимальная сумма продаж была в ',m,'-м месяце');
  sum:=0;
  for i:=1 to n do
    with a[i] do
      sum:=sum+kolv[m]*cena;
  writeln('И составила в среднем по курортам ',sum/n:0:2,' рублей.');
end.