function fPol_4: Real; //функция вычисления полинома 4й степени
    var_input //объявление входных переменных
        X : Real;
        exp: udint; // степень
        D0: Real;
        D1: Real;
        D2: Real;
        D3: Real;
        D4: Real;
    end_var

    var //объявление локальных переменных
        i: udint;
        d: array [0..4] of Real;
    end_var
//PRG
    fPol_4:=0;
    d[0]:=d0;
    d[1]:=d1;
    d[2]:=d2;
    d[3]:=d3;
    d[4]:=d4;

    for i := 0 to exp do
        fPol_4:=fPol_4 + d[i]*pow(X,udint_to_real(i));
    end_for
end_function