Рассчитать значение x, определив и использовав не менее2 функций (одна для слагаемого, вторая для суммы).(В паскале)

1. Современное решение// PascalABC.NET 3.2, сборка 1417 от 28.03.2017// Внимание! Если программа не работает, обновите версию!function fn(n:real):=(3*n+sqrt(6*n))/sqrt(3*n);function Sum(n:integer):=Range(1,n).Select(i->fn(i)).Sum;begin  Writeln('x=',Sum(ReadInteger('n='))) end.Примерn= 15x=91.30790808853712. Школьное решение в стиле ТурбоПаскаль 1983г.function fn(n:real):real;begin  fn:=(3*n+sqrt(6*n))/sqrt(3*n)end;function Sum(n:integer):real;var  i:integer;  s:real;begin  s:=0;  for i:=1 to n do    s:=s+fn(i);  Sum:=send;var  n:integer;begin  Write('n=');  Read(n);  Writeln('x=',Sum(n))end.