Дано натуральное
число. Верно ли, что в его записи встречается цифра 3?

Если я не ошибаюсь, то натуральные числа идут от 1-до бесконечности! А 0 это не натуральное! Натуральное число можно узнать при счете например яблок!0 яблок значит их совсем нету а если 2 яблока уже есть!

Program p;
 var x:longint; 
        t:boolean;
begin 
  Write('Введите натуральное число, х = '); 
  Readln(x); 
  While x<>0 do 
    begin   
         If x mod 10 = 3 then  
             t:=true; 
         X:=x div 10;   
    end; 
If t=true then    
      Writeln('Да, встречается') else   
                  Writeln('Нет, не встречается');
end.

Спасибо)