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

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