Pascal/Turbo Pascal - numero capicua

alguien me pude decir como hacer un programa que mencione si un numero de tres dígitos es capicúa o no...

Hola Mara!!

Teniendo la variable «capicua» de tipo boolean, haces lo siguiente:
capicua:=(num div 100) = (num mod 10);

(num div 100) devuelve el primer dígito, y (num mod 10) devuelve el último... si éstos coinciden, entonces el número es capicúa.

Saludos!

Excelente, admiro tu ingenio!

Muchas gracias Diego!! Hay días en que la lamparita se enciende :P jajaja. Un abrazo!

HOLA:
Diegio gracias por las felicitaciones.

SALUDOS

hacer un programa en pascal que lea los numeros capicua del 0 al 2000

Buenas, no creo que esto te sirva ya que pasaron muchos años de tu pregunta, pero puede que le sea util a alguien que la tenga el día de hoy.
Existe un algoritmo recursivo capaz de determinar si un numero de cualquier cantidad de cifras es o no capicúa, y es el siguiente:

program capicuaRecursivo;

function capicuaR(x,y,n:longint):boolean;
begin
x:=(x*10) + (n mod 10);
n:=n div 10;
if x=y then capicuaR:=true
else
if n=0 then capicuaR:=false
else capicuaR:=capicuaR(x,y,n);
end;

var
x,y:longint;
begin
x:=0;
writeln('Ingrese un numero para saber si es capicua: ');
read(y);
if capicuaR(x,y,y) = true then writeln('Es capicua')
else writeln('No es capicua');
end.

Espero que le sirva a alguien. Saludos!