На паскаль необходимо найти площадь минимального прямоугольника, покрывающего все заданные точки на плоскости. стороны этого прямоугольника обязательно должны быть параллельны осям координат. входные данные дано натуральное число n (2 далее следуют n пар целых чисел, не превышающие по абсолютной величине 100 – координаты точек. гарантируется, что хотя бы три из них не лежат на одной прямой. выходные данные выведите одно натуральное число – площадь наименьшего прямоугольника. пример вход выход 3 0 0 3 1 10 1 10

Судя по полагается то ,  что они играли не зависимо за какую именно .  посчитаем сколько вообще было встреч , у команды первой лиги команд в 2 раза больше так как    .  посчитаем отдельно каждую встречу внутри команд ,и между разными .    по первой лиги это число сочетаний  по высшей лиги это число сочетаний  а между собой очевидно  в сумме  встреч.  если не было ничьи то очевидно одно из двух  1) либо   команда проиграет  2) либо команда выиграет  число выигрышей и проигрышей будет равна количеству сыгранных игр . то есть если всего у команда  побед то  пусть количество выигрышей команды первой лиги равна  , то другой  что бы число делилось на 8 , очевидно что n либо само должно быть кратно 8 , либо     должно делится на 8 , подходит   при нем все выполняется 

1) var   n, i, c, sum, sum2, c2: integer;     a: array of integer;   begin   sum : = 0;     sum2 : = 0;   c2 : = 0;   c : = 0;     readln(n);     setlength(a, n);     for i : = 0 to n - 1 do     begin     read(a[i]);       if(a[i] > 0) and (a[i] > 6) then       begin       sum : = sum + a[i];         c : = c + 1;       end;       if(a[i] mod 2 = 0) and (a[i] > 6) then       begin       sum2 : = sum2 + a[i];       c2 : = c2 + 1;       end;     end;     writeln(sum / c);     write(sum2 / c2);   end. 2) var   n, i, max, im: integer;   a: array of integer;   begin   im : = 1;   readln(n);   setlength(a, n);   for i : = 0 to n - 1 do   begin     read(a[i]); if(i = 1) then max : = a[0];     if(a[i] > max) then     begin       max : = a[i];       im : = i + 1;     end;   end;   write((max * 2) / im); end.

Var   a, f, f1, i: integer;   begin   f : = 0;   f1 : = 0;   write('введите 10 чисел: ');   for i : = 1 to 10 do   begin     read(a);     if(a > 10) then f : = f + 1;     if(a > 5) then f1 : = f1 + 1;   end;   if(f > 4) then write('караул! сейчас все взорвется')   else     begin     writeln(f1, ' чисел(о)(а) больше 5');     write(f, ' чисел(о)(а) больше 10');   end; end.