Дано натуральное число n. Найти кубический корень из суммы квадратов цифр заданного числа.

Pascal ABC / PascalABC.NET:Var   n,S:integer;BeginWrite('n = ');ReadLn(n);S:=0;While n > 0 do   Begin   S:=S+Sqr(n mod 10);   n:=n div 10   End;WriteLn('S = ',power(S,1/3));End.Turbo Pascal / Free Pascal:Var   n,S:integer;BeginWrite('n = ');ReadLn(n);S:=0;While n > 0 do   Begin   S:=S+Sqr(n mod 10);   n:=n div 10   End;WriteLn('S = ',Exp(Ln(S)/3));End.