Вводится трёхзначное целое положительное число . определить , есть ли среди его цыфра 0

Var a,b1,b2,b3:integer;
begin 
Writeln('введи трёхзначное число'); 
readln(a); 
b1:=a mod 10; 
b2:=(a mod 100)div 10; 
b3:=a div 100; 
if (b1=0) or (b2=0) or (b3=0) then writeln('Среди цифр есть 0') 
                                            else writeln('среди цифр нет 0');     
end.   

Программа во вложениях