Дано натуральное число. Верно ли, что в его записи встречается цифра 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.