Дана матрица L (3,3), найти и вывести номера строк., эле менты которых одинаковы.…

Var n,m,i,j,k,s,s1: longint; y: array[1… 10000,1… 10000] of longint; o: array[1… 10000] of longint; beginread (n,m); for i: =1 to n dofor j: =1 to m doread (y[i,j]); for i: =1 to n dofor j: =1 to n doif j<>i thenbegin for k: =1 to m do if y[i,k]=y[j,k] then inc (s); if s=m then beginif o[i]=0 then begin writeln (i); o[i]: =1; end; if o[j]=0 thenbegin writeln (j); o[j]: =1; end; end; s: =0; end; end. Для общего случая.