Program LabAa; uses crt;

var x,y,fact:real;
    n,i:integer;

Begin clrscr;
Write('--------------------------------------------------------------------------------');
GotoXY(17,WhereY); Writeln('Для запуска программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln; clrscr;

Write('--------------------------------------------------------------------------------');
X:=2; {Начальное значение}
for i:=1 to 17 do
    Begin
     Fact:=1; {Начальное значение факториала}
     Y:=0; {Начальное значение суммы}

     for n:=1 to 20 do
     Begin
     Fact:=Fact*n; {Факториал N}
     Y:=Y+Sqrt((Exp(3*Ln(Exp(N*Ln(X))+1))/Fact)); {Функция}
     end;

     Writeln(' При X= ',X:4:2,', Y= ', Y:8:5);
     Readkey;
     X:=X+0.5; {Получаем очередное значение X}
     end;

Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.