Алгоритмические языки и программирование. Игошина Л.В. - 69 стр.

      В Паскале нет стандартных функций сумммирования элементов
массива и возведения чисел в степень больше 2. Разработаем свои функции
для решения этих задач и будем использовать их для решения поставленной
задачи.

                              Текст программы
     Uses crt;
     Type
           Tmas=array[1..100] of real;
     Var a,b,n,m,i,j:byte;
           X,Y:Tmas;
           S:Real;
     Function Summa(Dlmas:byte; Mas:Tmas):Real;
           Var Sum:real; i:byte;
           Begin
           Sum:=0.0;
           For i:=1 to Dlmas do
           Sum:=Sum+Mas[i];
           Summa:=Sum;
           End;
     Function step(Pok:byte;Osn:byte):real;
           Var i:byte; St:real;
           Begin
           St:=Osn;
           For i:=2 to Pok do
           St:=St*Osn;
           step:=St;
           End;
     { Главная программа}
     BEGIN
     Write(' Введите длину первого массива - N ');
     Readln(N);
     Write(' Введите длину второго массива - M ');
     Readln(M);
     Writeln(' Введите элементы массива X');
                  For i:=1 to N do Read(X[i]); readln;
     Writeln(' Введите элементы массива Y');
                  For j:=1 to M do Read(Y[j]); readln;
     Write(' Введите a и b '); Readln(a,b);
     S:=(Summa(N,X)+Summs(M,Y))/(step(N,a)+step(M,b));
     Writeln(' Полученный результат S = ',S);readkey;
     END.