Дано двухзначное(трехзначное)число.Напишите программу определения- заходит ли в него цифра

в информатике полный ноль

это 2 различные задачки,если что

Var a,b,c,d:integer;
begin
readln(a);
b:=a div 100;
c:=a mod 100 div 10;
f:=a mod 100 mod 10;
if (b=5) or (c=5) or (f=5) then write('заходит')
else write('невходит');
if (b=7) or (b=4) or  (c=7) or (c=4) or (f=7) or (f=4) then write('заходит')
else write('невходит');
end.