Дано естественное число N. Узнать, заходит ли цифра 7 в запись

в запись числа N2?? Это все условие либо еще что есть?

n в квадрате, больше нету условия

Так напиши в программке,что снизу, после строки readln(n) строчку n:=sqr(n).Только при вводе огромных чисел может произойти переполнение, и итог будет неверным. Так как, диапозон чисел типа longint сочиняет [-2147483648..2147483647]

var n:longint;
     f:boolean;
begin
  write ('N = ');
  readln (n);
  f:=false;
  while (nlt;gt;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.