с клавиатуры вводится двухзначное число .написать программу которая проверяет если среди его значащих цифр 0

var a:integer;begin  readln(a);  if a mod 10 =0 then writeln ('Цифра 0 есть')  else writeln('Цифры 0 нет');end.