Помогите (Все это нужно сделать в паскале)

Данное выражение можно упростить:
(3n+√6n)/√3n = 3n / √3n + √6n / √3n = √3n * √3n / √3n + √(6n / 3n) = √3n + √2

Код PascalABC:

Const
   Sqrt2 = Sqrt(2);

Function C(n:integer):real;
Begin
result:=Sqrt(3*n)+Sqrt2;
End;

Function Sum(n:integer):real;
Begin
result:=0;
For n:= 1 to n do
    result:=result+C(n);
End;

Var
   n:integer;
Begin
Write('n = ');ReadLn(n);
WriteLn('x = ',Sum(n))
End.

Пример работы программы:

n = 3
x = 11.4241812374713

Примечание:
Чтобы программа работала на Turbo и Free Pascal, нужно заменить result, на имя функции, в которой он используется.