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

uses crt;
type mas=array[1..100] of real;
Function Summ(m:mas;a:real;n:integer):real;
  var i:integer;
         s:real;
  Begin
  s:=0;
  for i:=1 to n do
  s:=s+m[i]+a;
  Summ:=s;
  end;
Function Step(a:real;n:integer):real;
  var i:integer;
         s:real;
  Begin
  s:=1;
  for i:=1 to n do
  s:=s*a;
  Step:=s;
  end;
Function Fact(n:integer):real;
  var i:integer;
         f:real;
  Begin
  f:=1;
  for i:=1 to n do
  f:=f*i;
  Fact:=f
  end;
var n,i:integer;
   x,y:mas;
   a,f:real;
  {Главная программа}
BEGIN
  randomize;
  repeat
  write('Размер массивов до ',100,'n=');
  readln(n);
  until n in[1..100];
  writeln('Массив X:');
  for i:=1 to n do
    begin
    x[i]:=10*random;
    write(x[i]:5:2);
    end;
  writeln;
  writeln('Массив Y:');
  for i:=1 to n do
    begin
    y[i]:=10*random;
    write(y[i]:5:2);
      end;
  writeln;
  write('a=');
  readln(a);
   f:=Summ(x,0,n)+Summ(y,a,n)+Step(a,n)+Fact(n);
  write('F=',f:0:2);
  END.