program picaso; uses crt;
var i,j,n,x,y:integer;
	a:array[1..10,1..10] of integer;
begin clrscr;
	writeln('Vedite dlinu masiva');read(n);
	
	for i:=1 to n do 
		for j:=1 to n do
		begin 
			write('A[',i,',',j,']=');
			readln(a[i,j]);
		end;
	
	for i:=1 to n do
	begin 
		for j:=1 to n do 
			if (a[i,j] mod 2)=0 then else x:=i; y:=j;
	end;
	
	Writeln('Poslednii neciotnii element A[',x,',',y,']=',a[x,y]);
	
end.