Ижелательно 2 ! это контрольная

ответ: Отложим в сторону тринадцатую монету, а остальные обозначим следующим образом: FAKE MIND CLOT Теперь взвешиваем одну четверку против другой по такой схеме: 3 монеты принимают участие в трех взвешиваниях 3 - только в одном 6 - в двух. Например: FANO - KECT, AKNC - FMDL, FKIL - ADOT Например, если результаты взвешивания будут такими: слева легче, равно, слева тяжелее, значит фальшивой будет монета, обозначенная буквой O. Причем, фальшивая монета будет легче настоящих. А что если фальшивой окажется все-таки отложенная нами, тринадцатая монета? Все очень просто: в этом случае при всех трёх взвешиваниях весы будут сбалансированы. К сожалению в этом случае нам не узнать легче или тяжелее тринадцатая монета, но в условии такого требования и не было.

1. Короткое решение для числа произвольной длины (на символьной строке)

var
  s:string;
  c:char;
begin
  Write('Введите натуральное число: ');
  Readln(s);
  Write('введите искомую цифру: ');
  Readln(c);
  if Pos(c,s)>0 then
    Writeln('Такая цифра в числе есть')
  else
    Writeln('Такой цифры в числе нет')
end.

Тестовое решение
Введите натуральное число: 43543232
введите искомую цифру: 4
Такая цифра в числе есть

2. Более традиционное решение с целочисленными переменными

var
  s,c:integer;
  brk:boolean;
begin
  Write('Введите натуральное число: ');
  Read(s);
  Write('введите искомую цифру: ');
  Read(c);
  brk:=false;
  repeat
    if s mod 10=c then brk:=True;
    s:=s div 10
  until brk or (s=0);
  if brk then
    Writeln('Такая цифра в числе есть')
  else
    Writeln('Такой цифры в числе нет')
end.

Тестовое решение
Введите натуральное число: 43543232
введите искомую цифру: 6
Такой цифры в числе нет