{
    Сибирский Государственный Университет Путей Сообщения (СГУПС)
    Кафедра "Информационные технологии транспорта"
    Лабораторная работа №6. Вариант №12.
    Выполнил: ст.гр. МЛ-112, Фомин Александр
    г.Новосибирск, 2012г.
    }

    Program Lab6_12; uses crt;

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

    Begin clrscr;
    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;
    Readln;
    end.