Определить, есть ли цифра 0 в заданном числе

var
n:real;
st:string;
e:integer;
begin
readln(n);
str(n,st);
if (st[1]='0') or (st[2]='0') or (st[3]='0') then writeln('da')
 else writeln('net');
END.

var
n:real;
st:string;
i,j,e:integer;
k:boolean;
begin
readln(n);
str(n,st);
for i:=1 to 4 do begin       //организуем цикл для поиска . 
                             //Иначе, напиример, число 1.10 
                             //Первые 3 символа 1 . 1. 
                             //То есть точка сьедает лишний символ. 
                             //Поэтому если находим точку, плюсуем к циклу поиска нулей j,
                             // которая будет 0 если точки не будет и 1 если будет.
                             // И тогда Будем искать 0 среди первых 4х символов.
                             // То есть, 0 в примере уже войдет и всё будет Ок =)
if st[i]='.' then j:=j+1;
end;
for i:=1 to (3+j) do begin
if st[i]='0' then k:=true;
end;
writeln(k);
END.

var n,m,k:integer;
begin
  Writeln('vvedite chislo'); readln(n);     k:=0;
while n div 1000 > 0 do
  n:=n div 10;
while n>0 do
begin
  m:=n mod 10;
  if m=0 then k:=k+1;
  n:=n div 10;
end;
 if k>0 then writeln('yes') else writeln('no');
 readln;
end.