Информатика 10-11. Книга 2. Практика алгоритмизации и программирования. Шауцукова Л.З. - 74 стр.

{--------------------------------------------}
BEGIN
  InputOutput;    {вызов процедуры ввода-вывода исходных
данных}
  YesOrNot(Flag); {вызов процедуры решения задачи}
  Write('О т в е т : число ', K );
  If Flag then Write(' встречается')
          else Write(' не встречается');
  WriteLn(' среди максимальных элементов столбцов матрицы');
  ReadLn
END.

   Пример 6.3. Проверить, является ли заданная целочисленная матрица A(N, N)
  "магическим квадратом" (это значит, что суммы чисел во всех её строках, всех
                     столбцах и двух диагоналях одинаковы).
                                Система тестов

            Номер   Проверяемый         Данные         Результат
            теста      случай
                                   N     Матрица         Otvet
                                           А

              1       Является      3                 ''Магический
                                                         квадрат''



              2      Не является    2               ''Не магический
                                                        квадрат ''


Школьный АЯ
алг Магический квадрат (арг цел N, арг цел таб A[1:N, 1:N], рез
лит Otvet)
     дано | N>0
нач цел i, j, St, S, лит Flag
  St:=0                | вычисление суммы элементов главной
диагонали
  нц для i от 1 до N | в качестве эталонной суммы St
    St:=St+A[i, i]
  кц
  Flag:="Да"; i:=1
  нц пока (i<=N) и (Flag="Да") | вычисление сумм элементов
строк
    S:=0
     нц для j от 1 до N
       S:=S+A[i, j]
     кц
     если S<>St | сравнение суммы элементов текущей строки с
эталонной
        то Flag:="Нет"
        иначе i:=i+1