Дано натуральное число n. Выяснить, входит ли цифра 7 в запись этого числа. Решить на Паскале.

program ex61;
Uses Crt;
var
b: boolean; {b - флаг, обозначающий входит ли цифра 7 в запись числа}
n: longint;
BEGIN
ClrScr;
write('Введите n: ');
readln(n);
b:=false; {ставим флаг в значение "ложь"}
while n>0 do
begin
{проверяем последнюю цифру числа на равенство 7}
if (n mod 10 = 7) then b:=true;
n:=n div 10; {убираем последнюю цифру числа}
end;
writeln(b); {выводим результат:
false - 7 не входит в запись этого числа
true - 7 входит в запись этого числа}
readLn;
END.