Если я правильно понял задание, то примерно так:
Художник Шишкин пейзажист.
Композитор Моцарт классик.
Озеро Байкал большое.
Город Лондон столица.
PAscal abc.
<em><u>Проверка.</u></em>
введите кол-во элементов массива
10
-8 -12 10 14 -1 13 -9 14 3 11
сумма=41<span>
</span>
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b):=ReadReal2('Введите два числа:');
if a>b then Writeln('Первое число больше')
else
if b>a then Writeln('Второе число больше')
else Writeln('Числа равны')
end.
<u>Пример</u>
Введите два числа: 25 24.95
Первое число больше
1) С моделью: управлять через пульт управления. С оригиналом: управлять, сидя в кабине пилота. С обоими: управлять полётом.
2) С моделью: обсуждать. С оригиналом: одеть. С обоими: узнать цвет куртки.
3) С моделью: изменять что-то в плане, чертить. С оригиналом: жить в квартире. С обоими: вычислить общую площадь квартиры.
4) С моделью: любоваться им, изменить форму. С оригиналом: кипятить в нём воду. С обоими: узнать объем вмещаемой жидкости.
5) С моделью: думать о ней, изменить представление. С оригиналом: быть уже в пути и ждать её завершения. С обоими: получать удовольствие.
Ощутить размер оригинала, потрогать, воспринять как что-то настоящее.
N=int(input())
matrix=[]
for i in range(n):
matrix.append([int(j) for j in input().split()])
print("yes" if matrix==[[matrix[x][y] for x in range(n)] for y in range(n)] else "no")
