Определить есть ли в целом четырёхзначном числе цифра ноль

var a,b,c,d,e: integer; begin writeln('Введите четырехзначное число'); readln(a); b:= a div 10 div 10 div 10; c:= (b*10)-a div 10 div 10; d:= (a-((b*10+c)*100)) div 10; e:= (a-((b*10+c)*100)) mod 10; if (b = 0) or (c = 0) or (d = 0) or (e = 0) then writeln ('В этом числе есть 0') else writeln('В этом числе нет цифры 0'); end.