Дано двузначное число. Найти, заходит ли в него цифра а

Var
  a,b,c,d: integer;
begin
  writeln('Введите двузначное число');
  readln(c);
  writeln('Введите цифру a');
  readln(d);
  a:=c div 10;
  b:=c-a*10;
  if (a=d) or (b=d) then
    writeln('цифра ',d,' заходит в двузначное число ',с)
 else
    writeln('Цифра в двузначное число не заходит');
end.

Пример
Двузначное число 25
Цифра 5
 Цифра 5 заходит в двузначное число 25.