Дано двузначное число определить входит ли в него цифра 3

Question

Дано двузначное число определить входит ли в него цифра 3

Answer 1

var a: 10..99;

begin

  readln(a);

  if (a mod 10=3)or(a div 10=3) then writeln('Цифра 3 входит в число ',a)

  else writeln('Цифра 3 не входит в число ',a);

end.