program fg;
var A:array[1..10,1..2] of integer;
    n,i,j:integer;
begin
for i:=1 to 10  do
for j:=1 to 2 do begin write ('A[',i,',',j,']='); readln (A[i,j]); end; writeln;
 
writeln('Vot vvedennaia vami Matrica "A":');
for i:=1 to 10 do begin writeln;
for j:=1 to 2 do write (A[i,j]:3,' '); end;
n:=0;
writeln; writeln;write('STROKI: ');
for i:=1 to 10 do
if A[i,1]=A[i,2] then begin write(i,', '); inc(n); end;
writeln;writeln('Kol-Vo takix STROK: ',n);
 
readln;
end.