program CheckDigit;
var
n, digit: integer;
isThree: boolean;
begin
isThree := false;

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

while n <> 0 do
begin
digit := n mod 10;

if digit = 3 then
begin
isThree := true;
break;
end;
n := n div 10;

end;

if isThree then
writeln('В числе есть цифра 3')
else
writeln('В числе нет цифры 3');

end.