P_29_E_6-Leer+numero+y+mostrarlo+centrado

> Escribir un programa que lea desde teclado una numero entero (positivo o negativo) > * Y mostrar en una línea la palabra NUMERO y en la siguiente línea el valor leído. > * ambos deben aparecer centrados en las líneas correspondientes

code format="pascal" PROGRAM P_29_E_6 ; VAR iNumero, iValorAbsoluto, iCifras : Integer ; BEGIN Writeln ; Write ('     Escribe un numero entero (positivo o negativo): ') ; ReadLN (iNumero) ; iValorAbsoluto := Abs (iNumero) ; iCifras := 1 ; WHILE iValorAbsoluto > 0 DO	    BEGIN iValorAbsoluto := iValorAbsoluto DIV 10 ; iCifras := iCifras + 1 ; END ; IF iNumero 	< O THEN iCifras := iCifras + 1 ; Writeln ; Writeln ('NUMERO':43) ; Writeln (iNumero: 40 + (iCifras DIV 2)	) ; Readln ; END. { Fin de P_29_E_6.PAS } code