Написать программу для вычисления суммы пяти положительны чисел введённых с клавиатуры используя процедуры которая предупреждает если введённое число отрицательное. Паскаль

program Geom;

program Test_nn;

{$APPTYPE CONSOLE}

{$R *.res}

uses

 Math;

var

 a: array of Extended;

 n, i, c: Integer;

 x: Extended;

begin

 Write ('Размерность массива = ');

 ReadLn (n);

 SetLength (a, n);

 Randomize;

 for i := Low (a) to High (a) do begin

   a [i] := (Random (2001) - 1000) / 1000;

   Write (a [i] :7 :3);

 end;

 x := 1;

 c := 1;

 WriteLn;

 for i := Low (a) to High (a) do begin

   if a [i] > 0 then begin

     Write (a [i] :7 :3);

     x := x * a [i];

     Inc (c);

   end;

 end;

 WriteLn;

 WriteLn ('Среднее геометрическое = ', Power (x, 1/c) :20 :15);

 ReadLn;

end.

#include <iostream>

using namespace std;

int main()

{

   int min, imin, z;

   cout<<"Введите количество элементов: ";

   cin>>z;

   int a[z];

   cout<<"Введите элементы, каждый с новой строки:"<<endl;

   for(int i = 0; i < z; i++){

       cin>>a[i];

   }

   min = a[0];

   imin = 0;

   for(int i = 1; i < z; i++){

       if(abs(min) > abs(a[i])){

           min = a[i];

           imin = i;

       }

   }

   cout<<"Номер минамального по модулю элемента: "<<imin;

}