Дано трехзначное число. Верно ли, что среди его цифр есть равные 7?

var i, n:integer;

seven:boolean;

begin

readln (n);

for i : = 1 to 3 do begin

if n mod 10 = 7 then begin

seven:=true;

break;

end;

n: = n div 10;

end;

if seven then writeln ('есть равные 7 ')

else writeln ('кратных 7 нет');

end.