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

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: = (*10+c)*100)) div 10; e: = (*10+c)*100)) mod 10; if (b = 0) or (c = 0) or (d  =  0) or (e = 0)  then writeln ('в этом числе есть 0') else writeln('в этом числе нет цифры 0'); end.