Функция нахождения факториала и суммы на основе рекурсии - Pascal ABC - Ответ 1668772

uses crt;
Type
      Tmas=array[1..100] of real;
Var    a,b,n,m,i,k:byte;
       nn:integer;
        X,Y:Tmas;
        F:Real;
function Step(x:real;n:integer):real;
begin
if n=0 then Step:=1
else Step:=Step(x,n-1)*x;
end;
function Fac(n:integer):real;
begin
if n<2 then Fac:=1
else Fac:=Fac(n-1)*n;
end;
function Summa1(x:Tmas;k:byte;a:real):real;
begin
if k=0 then Summa1:=0
else Summa1:=x[k]+Step(a,k)+Summa1(x,k-1,a);
end;
function Summa2(x:Tmas;k,m,n:integer;a:real):real;
begin
if k=0 then Summa2:=0
else Summa2:=x[k]/Step(a,m)+Fac(n)+Summa2(x,k-1,m,n,a);
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 k:=1 to M do Read(Y[k]);// readln;
   write('a=');readln(a);
   F:=Summa1(x,n,a)+Summa2(y,m,m,n,a);
   Writeln('  Полученный результат  F = ',F);
END.