Выяснить, входит ли цифра n в запись числа n^2

[Vlt]

Код в Паскале. Не могу понять, в чем проблема.
программа не правильно показывает значения.
Пример 3 в квадрате 9, цифра 9 присутствует. Показывает что присутствует
7 в квадрате 49, цифра 9 присутствует. Показывает что присутствует
14 в квадрате 196, цифра 9 присутствует. Но показывает что не присутствует.

var n : integer;
function F(n:integer):boolean;

begin
if n mod 10 = 9 
then
F:=true;
n:=n div 10
end;

begin
Write('Введите n ');
ReadLn(n);
if F(sqr(n)) then WriteLn('присутствует')
else WriteLn('не присутствует');

end.

[Mad_Cat]

вы задание читаете по диагонали?

цифра n в запись числа n^2

причем тут 3 и 9

function DigitInSqr(i:byte):boolean;
begin
DigitInSqr:= (sqr(i) mod 10 = i) or (sqr(i) div 10 = i)
end;
var X:byte;
begin
For X:=0 to 9 do
if   DigitInSqr(x) then writeln(x);
readln;
end.

резалт

0
1
5
6

[Vlt]

Ошибочка, входит ли цифра 9 в запись числа n^2

[lolk]

Так ты проверяешь, последняя цифра равна ли 9. Сделай проверку в цикле.

[Mad_Cat]

входит ли цифра 9 в запись числа n^2

function NineInSqr(n:integer):boolean;
var Res:boolean;
begin
 res:=false;
 n:=sqr(n);
 While (n>0) and (res=false) do
 begin
 res:=n mod 10=9;
 n:=n div 10;
 end;
 NineInSqr:=res;
end;
var i:integer;
begin
readln(i);
writeln(NineInSqr(i));
readln;
end.

[Vlt]

Огромное спасибо.