а)
var
num,a,b:integer;
begin
write('Введите число: ');
readln(num);
write('Введите а: ');
readln(a);
write('Введите b: ');
readln(b);
if(num mod 10 = a) or (num mod 10 = b) or (num div 100 = a) or (num div 100 = b) or ((num div 10) mod 10 = a) or ((num div 10) mod 10 = b) then writeln('Есть. ')
else writeln('Нет. ');
end.
==============================
в)
var
num,counter,new_number:integer;
begin
write('Введите число: ');
readln(num);
new_number := 0;
counter := 1;
repeat
new_number := (new_number * counter) + num mod 10;
counter := 10;
num := num div 10;
until num = 0;
writeln('Новое число: ',new_number);
end.