program lp2;
const arraySize = 7;
type a = array [1..arraySize] of integer;
var arr : a = (2,-5,9,-18,1,8,-3);
    sum : integer;

procedure sumaElemetelorPozitive(var arr:a; i:integer; var suma:integer);
begin
    if i < arraySize then
    begin
        if arr[i] >= 0 then
        begin
            suma := suma + arr[i];
            sumaElemetelorPozitive(arr, i+1, suma);
        end
        else sumaElemetelorPozitive(arr, i+1, suma);
    end;
end;

begin
  sumaElemetelorPozitive(arr, 0, sum);
  write('suma elemntelor pozitive - ', sum);
end.