var a,n,x,y: integer;
 
begin
writeln('Введите число ');
readln(n);
writeln('Введите a ');
readln(a);
x:=n mod 10;
y:=n div 10; 
if (x=3) or (y=3) then
writeln('3 входит в число')
else writeln('3 не входит в число');
if (x=a) or (y=a) then
writeln('цифра ',a,' входит в число')
else writeln('цифра ',a,' не входит в число');
end.