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.