Даны натуральное число n, действительные числа a1, , an вычислить a1+ +an и pascal

//PascalABC  (версия 3.4.2, сборка 1889 от 04.12.2018)

uses Arrays;

var

n : integer;

sum, mul : real;

a : array of real;

begin

writeln;

n := ReadLnInteger('Введите N: ');

a := CreateRandomRealArray(n);

sum := 0;

mul := 1;

foreach var x in a do

begin

 write(x:4:2, ', ');

 sum += x;

 mul *= x

end;

writeln; writeln;

writeln('Сумма:        ', sum:12:4);

writeln('Произведение: ', mul:12:4)

end.

Program asd;
Var A,C:array[1..2500] of integer;
i,n,s,ii:integer;
 sr:real;
BEGIN
Write('Введите n: '); Readln(n);
Writeln('Массив: ');
 For i:=1 to n do
  begin
  A[i]:=1+Random(9); 
 Write(A[i]:2); 
  end;  
 Writeln; 
 Writeln('Все элементы, которые меньше последнего числа в ряду: ');
For i:=1 to n do  
begin
 if A[i]<A[n] then Write(A[i]:2); 
end; 
Writeln;
 Writeln('Среднее арифметическое элементов массива: '); 
 For i:=1 to n do 
 begin 
 s:=s+A[i]; 
 sr:=s/i; 
end; 
Writeln(sr:2:2);  
   Writeln('Номер элементов, которые от 3 до 7.: ');  
  For i:=1 to n do 
 begin 
 If  (A[i]>=3) and (A[i]<=7)   
 then
  begin 
  C[i]:=i; 
 Write(C[i],' '); 
 end;   
 end;  
END.

Program asd;
Var A,C:array[1..2500] of integer;
i,n,s,ii:integer; 
sr:real;
BEGIN
Write('Введите n: '); Readln(n);
Writeln('Массив: '); 
For i:=1 to n do 
 begin 
 A[i]:=1+Random(9);
  Write(A[i]:2);  
 end;  
 Writeln;
  Writeln('Все элементы, которые меньше последнего числа в ряду: ');
For i:=1 to n do
 begin 
if A[i]<A[n] then Write(A[i]:2);
 end;  
Writeln(); 
 Writeln('Номер элементов, которые от 3 до 7.: ');  
  For i:=1 to n do
  begin 
 If  (A[i]>=3) and (A[i]<=7)   
 then 
 begin  
C[i]:=i;   Write(C[i],' ');  
 end;   
 end;
 END.