Дано пятизначное число. на экран вывести число, записанное цифрами в обратном порядке

Вам вряд ли задали так сделать, но всё же.
var a,b:integer;
d:string; 
begin   
writeln (' введи число');   
 readln(b);   
Str (b, d);     
for a:=length(d) downto 1 do begin     
 write(d[a]);
    end; 
writeln('');
end.

лучше так напиши.
var a,b,c:integer;
begin
write('введите число=> ');
readln(a);
write('обратное число=> ');
while (a<>0) do begin
b:=a mod 10;
write(b);
a:=a div 10;
end;
end.

25 (10cc) =2^4+2^3+2^0 =11001 (2cc)
19 (10cc)=2^4+2^1+2^0=10011 (2cc)

используя формулу А→В =¬А+В приводим данную формулу в условии к виду:
(X&25=0)+(X&19≠0) + (Х&A≠0)=1

рассмотрим случай, когда
(Х&25 =0) +(X&19≠0) =0   и  (Х&A≠0)=1

так как 25 = 11001, то (X&25=0) = 0   (т.е. конъюнкция будет "ложь")
при Х={1; 1000; 1001;  10000; 10001; 11000; 11001}

так как 19=10011, то (Х&19≠0) = 0 при
X={100; 1000;  1100}
                   общее значение : Х=1000 (2сс) = 8 (10сс)

ответ 8

1) Первый

Первая цифра числа Y = X mod 4:

Ряд первых 10 чисел которые подходят под правило X mod 4 = 1:

1, 5, 9, 13, 17, 21, 25, 29, 33, 37 (Δ=4)

Вторая цифра числа Y = X mod 3:

Из предыдущего пункта, двухзначные числа, которые попадают под правило X mod 3 = 0:

21, 33

Третья цифра числа Y = X mod 2:

Поскольку X – число нечетное, то оно обязательно будет иметь остаток 1.

Наименьшее число из выбранных – это 21.

ответ: 21

2) Второй

Воспользуемся простеньким уравнением:

(X % 4 * 100) + (X % 3 * 10) + (X % 2)=101

И проверим его в промежутке от 11 до 99.

Если число из промежутка подходит по условию и нечетное, то это наш ответ.

Пример программы приведен ниже.

// PascalABC.NET  

// Версия 3.4.2, сборка 1956 (01/30/19)

begin

 for var x := 10 to 99 do

   if ((X mod 4 * 100) + (X mod 3 * 10) + (X mod 2) = 101) and (X.IsOdd) then

   begin

     Println(x);

     break;

   end;

end.

Результат: 21