@Echo off
setlocal enabledelayedexpansion
title Ejercicio 9. Numeros Capicua
set numero="" 
:comienzo
echo.
echo ===========================================
echo          Numero Capicua o no....
echo ===========================================
echo.
Set /P numero="Introduce un numero de 5 cifras "
if %numero%=="" ( 
	goto error 
	) else ( 
	goto variables
	)
 
:variables
set num1=%numero:~0,1%
set num2=%numero:~1,1%
set num3=%numero:~2,1%
set num4=%numero:~3,1%
set num5=%numero:~4,1%
goto longitud
 
:longitud
if !num5! gtr -1 ( 
	goto compara4
) 
if !num4! gtr -1 (
	goto compara3
)
if !num3! gtr -1 (
	goto compara2
)
if !num2! gtr -1 (
	goto compara1
)
if !num1! gtr -1 (
	goto compara
)
 
:compara
echo.
echo El numero introducido es Capicua.
goto fin
 
:compara1
if !num1! equ !num2! (
	echo El numero introducido es Capicua.
	goto fin
) else (
	echo El numero introducido no es Capicua.
	goto fin
)	
:compara2						
if !num1! equ !num3! (
	echo El numero introducido es Capicua.
	goto fin
	) else (
		echo El numero introducido no es Capicua.
		goto fin
	)	
 
:compara3				
if !num1! equ !num4! (
	if !num2! equ !num3! (
	echo El numero introducido es Capicua.
	goto fin
	) 
) else (
	echo El numero introducido no es Capicua.
	goto fin
)
 
:compara4							
if !num1! equ !num5! (
	if !num2! equ !num4! (
		echo El numero introducido es Capicua.
		goto fin
		) 
) else (
	echo El numero introducido no es Capicua.
	goto fin
)
 
:error
echo.
echo ERROR! .No ha introducido ningun numero.
pause
goto comienzo
 
:fin
echo.
pause
exit