Функция и процедуры

[SGK91]

DSC0247812121.jpg


Помогите пожалуйста с этим 2я номерами.
Очень нужно.

[KooDer]

5.

Const n = 10;
 Var
  a:array [1..n] of integer;
  i:integer;
  Sum,S:integer;
  
  Procedure MyProc(Var b:integer);
     Var
      j:integer;
       Begin
        For j:=1 to n do
         begin
          if a[j] mod 2 = 0 then
          Sum:= Sum + a[j];
         end;
   end;
    
        
       Begin
        For i:=1 to n do
         begin
          a[i]:=random(20);
          Writeln('a[',i,'] = ', a[i]);
         end;
         MyProc(a[i]);
         S:=Sum;
         Writeln('Summa 4etnyx elementov', S);
       end.

[KooDer]

4.

 Var
  n,i:integer;
  p,a:real;
  

  Function Stepen(n:integer):real;
   begin
     p:=1;
      for i:=1 to n do
       p:=p*a;
       Stepen:=p;
   end;
   
    Begin
     Writeln('Zadaite 4islo a u Stepen n');
     Readln(a,n);
     Stepen(n);
     Writeln('Rezyltat', Stepen(n));
    end.