Напишите программу, читающую от пользователя массив размером 5*5 и находящую
четный максимум, если сумма всех элементов четная и нечетный максимум, если сумма всех
элементов нечетная.

Program igra;var a,b,c:integer;beginwriteln('Правда или действие? Если выбираете правду, введите 1, если действие 2');read(a);if a=1 then writeln('Сколько тебе лет?')else writeln('Подтянись 5 раз');writeln('Правда или действие? Если выбираете правду, введите 1, если действие 2');read(a);if a=1 then writeln('Сколько стоит твой компьютер?')else writeln('Пробеги вокруг техникума 5 раз');writeln('Правда или действие? Если выбираете правду, введите 1, если действие 2');read(a);if a=1 then writeln('Какой человек самый неприятный для тебя?')else writeln('Не садись целый час');end.

Объясняю свой алгоритм решения данного задания.
Берём и запихиваем все строки в двумерный чар массив.
Потом построчно сравниваем i-j элемент столбца с i+1-j. Если это одинаковые символы - мы прибавляем к счётчику +1.
Потом сравниваем i-j+1 и i+1-j+1, если они равны, то мы прибавляем +1 при условии того, что один из этих элементов равен одному из предыдущих
Ну а потом если наш счётчик составляет 2 - мы уже знаем что этот узор не симпатичный.
В противном же случае мы идём дальше до size-1. (в нашем случае size=4 поэтому 4-1=3)
Скриншот с результатом работы, скоростью и самим кодом прикрепил.
UPD:
Ещё можешь уменьшить кол-во итераций, во втором цикле в условии можно сделать strlen(a[i])-1