Дана квадратная целочисленная матрица размером NxN (1 < N <= 10). Контуром матрицы будем называть 2 строки и 2 столбца, расположенных на одинаковом удалении от её краёв.

Требуется определить, сколько поворотов на 90º по часовой стрелке разных контуров требуется выполнить, чтобы в какой-либо из строк получилась максимально возможная сумма.

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

2.Железо -- ето химический элемент, тяжелый ковкий металл серебристого цвета, образующий в соединении с углеродом сталь и чугун.

3.Метонимия -- ето вид тропа, словосочетание, в котором одно слово заменяется другим, обозначающим предмет (явление), находящийся в той или иной (пространственной, временной и т. п.)

4.Папирус ето древняя бумага на которой писали. Особенно в Єгипте.

5.Скалпель ето материал которим пользуються хирурги во время операций. Коротко єто материал которий раскривает череп і т.д.

6.Дебет ето счет. В бухгалтерских счетах.

Const
  n = 10;

var
  a: array[1..n] of integer;
  i: integer;

function sum: integer;
var
  tmp, prev, cur, s, i: integer;
  flg: boolean;
begin
  s := 0;
  for i := 1 to n do
  begin
    flg := true;
    tmp := a[i];
    prev := 9;
    cur := 0;
    while tmp > 0 do
    begin
      cur := tmp mod 10;
      if cur > prev then
      begin
        flg := false;
        break;
      end;
      prev := cur;
      tmp := tmp div 10;
    end;
    if flg then inc(s);
  end;
  sum := s;
end;

begin
  writeln('Исходный массив: ');
  for i := 1 to n do
  begin
    a[i] := random(1000);
    write(a[i], ' ');
  end;
  writeln;
  writeln('ответ: ', sum);
end.