var
a:byte;
begin
write('Введите число '); readln(a);
if (a div 10 = 4) or (a mod 10 = 4) then
writeln('В число входит цифра 4')
else
writeln('цифра 4 в число не входит');
end.
Алг(a,b,fl)
Арг a,b
Рез fl
ввод(a;b) {где а-это десятки,b-еденицы}
fl:=true
Если (a=4)или(b=4) то fl:=true все
Если fl=true то вывод('есть') иначе вывод('нету')
конец
var
a:byte;
begin
write('Введите число '); readln(a);
if (a div 10 = 4) or (a mod 10 = 4) then
writeln('В число входит цифра 4')
else
writeln('цифра 4 в число не входит');
end.