Var
i, j: integer;
ar: array[1..5, 1..5]of real;
b: boolean; //объявление переменных
begin
for i := 1 to 5 do
for j := 1 to 5 do read(ar[i, j]); //ввод матрицы
for i := 1 to 5 do
begin
b := true;
for j := 1 to 2 do
if(ar[i, j] <> ar[i, 5 - j + 1]) then //проверяем равен ли 1 элемент 1 строки
// последнему элементу 1 строки, 2 элемент 1 строки и 5-1 элемент
//если они неравны то выходим из одного цикла
begin
b := false; //б -ложь значит строка не симметрична
break;
end;
if(b = true) then write(i, ' '); //если б -истина выводим номер строки
end;
end.