Pascal/Turbo Pascal - Numero dorsal

Hola gente necesito ayuda con un ejercicio que es para las 9pm horario argentina,el ejercicio dice asi Escribir un programa completo en FreePascal que use las FUNCIONES necesarias
para determinar si un número entero dado es dorsal o no. Se dice que un número es
dorsal si es igual a la suma de los cuadrados de las partes obtenidas al partir el número
por la mitad.
El número ingresado debe tener cuatro dígitos, en caso contrario enviar el mensaje
de error al usuario e ingresar nuevamente.

Hola, podrias poner un ejemplo de numero dorsal.
Salu2.

Hola.
No me queda claro el significado de la expresion "partir el numero por la mitad". Primeramente pensé en dividirlo por 2 pero no puede ser: con números de cuatro digitos (asumiendo que no empiezan por cero) una de las dos mitades debe de ser mayor o igual que 500 y el cuadrado sería mayor que 250000, muy por encima de cualquier numero de 4 digitos.
Otra posible interpretacion es separar las dos cifras de la izquierda (peso más alto) y las dos cifras de la derecha (peso más bajo). Con esta interpretacion, el siguiente programa busca los numeros supuestamente dorsales entre 1000 y 9999 (cuarto digiitos). No es lo que pide el ejercicio, pero se aproxima bastante.


Pero esto es un ejercicio tan trivial que no creo que sea lo que se debe interpretar como numero dorsal. De hecho no se necesita ninguna FUNCION especial.
Y por cierto, hay dos números que cumplen esta condicion: 1233 = (12 * 12) + (33 * 33) y 8833 = (88 * 88) + (33*33).
Buen fin de semana.

Hola,gracias por ayudar, perdon que no puse en un ejemplo pero ahi va un ejemplo
Dado 1233 ➔ 12 * 12 + 33 * 33 = 144 + 1089 = 1233➔ 1233 es dorsal.
Dado 1030 ➔ 10 * 10 + 30 * 30 = 100 + 900 = 1000 ➔ 1030 no es dorsal.
Dado 2011 ➔ 20 * 20 + 11 * 11 = 400 + 121 = 521 ➔ 2011 no es dorsal.
Dado 8833 ➔ 88 * 88 + 33 * 33 = 7744 + 1089 = 8833 ➔ 8833 es
creo que es lo mismo juanba!