Помогите написать программу в Паскале.
Задано натуральное число n (n ≤ 9999). Определить количество цифр числа n^2.

Первый способ:Var n:longint;BeginWrite('n = ');ReadLn(n);n:=n*n;if frac(Ln(n)/Ln(10)) > 0 then WriteLn(int(Ln(n)/Ln(10))+1)else WriteLn(Ln(n)/Ln(10))End.Второй способ:Var   n,k:longint;BeginWrite('n = ');ReadLn(n);k:=0;n:=n*n;While n > 0 do   Begin   k:=k+1;   n:=n div 10   End;WriteLn(k);End.