Дано натуральное число n. выяснить, входит ли цифра 7 в запись числа n2.( решение в паскале) буду

var n:longint;
     f:boolean;
begin
  write ('N = ');
  readln (n);
  f:=false;
  while (n<>0) do
    begin
      if (n mod 10)=7 then 
       begin
         f:=true;
         break;
       end;
      n:=n div 10;
    end;
  if f then writeln ('YES') else writeln ('NO');
end.