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

program zz1;

var n, k, p:integer; / / задаем переменные целого типа

begin

write (' введите натуральное число ');

read (n); / / вводим с клавиатуры любое натуральное число

while n > 0 do / / организуем цикл, пока в числе есть цифры

begin

k:=n mod 10; / /получаем последнюю цифру

if k = 3 then p:=1; / / проверяем цифру

n:=n div 10; / / отбрасываем ее

end;

if p = 0 then writeln (' в заданном натуральном числе цифры 3 нет ') / /выводим ответ

else writeln (' в заданном натуральном числе цифрa 3 есть ');

end.