Паскаль. дано трехзначное число. определите, входит ли в него цифра 4 или 7.

var a,b,i:integer;

c:boolean;

begin

readln(a);

for i:=1 to 3 do

begin

b:=a mod 10;        // выделяем и сохраняем последнюю цифру числа

a:=a div 10;        // убираем последнюю цифру числа

if ((b=4) or (b=7)) then  // проверяем цифру на равенство

begin

c:=true;

break;   // если цифра проверку, то выходим из цикла

end

else c:=false;

end;

if (c=true) then writeln('Входит')

else writeln('Не входит');

end.