Pascal/Turbo Pascal - CAPICUAS

Alguien me puede ayudar ..solo tengo que hacer un programa que mencione si un numero de 3 dijitos es capicua o no..¿como le hago?

Hola Mara!! Ya te había contestado esta duda anteriormente, pero aquí va de nuevo:

program CAPICUAS;
var
num : integer;
begin
ReadLn(num);
if (num div 100) = (num mod 10) then
write('EL NUMERO ES CAPICUA')
else write('EL NUMERO NO ES CAPICUA);
end.

(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!