PROGRAM arraymatriz(input,output);

TYPE
	tnumeros=array[1..3,1..3] of integer;
VAR
	numeros:tnumeros;

{**********************************************************************************************************************************}

PROCEDURE insertar(VAR numeros:tnumeros);
VAR
	n,i:integer;
BEGIN
	FOR n:=1 to 3 DO BEGIN
	FOR i:=1 to 3 DO
		BEGIN
			writeln('Escriba usted los números que desea almacenar y sumar');
			readln(numeros[n,i]);
			writeln('Acaba usted de insertar el ',numeros[n,i]:2);
		END;
	END;
END;
{**********************************************************************************************************************************}

PROCEDURE mostrar(numeros:tnumeros);
VAR
	n,i:integer;
BEGIN
	FOR n:=1 TO 3 DO
		BEGIN
			FOR i:=1 to 3 DO
				BEGIN
					write(numeros[n,i]:3);
				END;
			writeln;
		END;
END;

{**********************************************************************************************************************************}

PROCEDURE mayormenor(numeros:tnumeros);
VAR
	n,i:integer;
	apoyo:integer value 0;
BEGIN
	FOR n:=1 TO 3 DO
		BEGIN
			FOR i:=1 to 3 DO
				BEGIN
					IF apoyo<numeros[n,i] THEN
						apoyo:=numeros[n,i]
				END;
		END;
	writeln('EL mayor número del array es ',apoyo:2);
END;

{**********************************************************************************************************************************}

PROCEDURE sumadiagonal(numeros:tnumeros);
VAR
	diagonal, ayuda1, ayuda2:integer value 0;
BEGIN
	WHILE ayuda1 < 3 do begin
		ayuda1:=ayuda1+1;
		ayuda2:=ayuda2+1;
		diagonal:=diagonal + numeros[ayuda1,ayuda2];
	END;
	writeln('La suma de los elementos de su diagonal es ',diagonal:2);
END;

{**********************************************************************************************************************************}

PROCEDURE diagonaligual(numeros:tnumeros);
VAR
	diagonal, ayuda1, ayuda2, apoyo, contador:integer value 0;
BEGIN
	WHILE ayuda1 < 3 do begin
		ayuda1:=ayuda1+1;
		ayuda2:=ayuda2+1;
		diagonal:=numeros[ayuda1,ayuda2];
		IF diagonal = apoyo THEN contador:=contador+1 else contador:=contador;
		apoyo:=diagonal;
	END;
	IF contador=2 THEN writeln('La matriz tiene su diagonal igual') else writeln('La matriz no tiene su diagonal igual');
END;



{**********************************************************************************************************************************}
BEGIN
	insertar(numeros);
	mostrar(numeros);
	mayormenor(numeros);
	sumadiagonal(numeros);
	diagonaligual(numeros);
END.