[Kapitoshka438]

Код:

function Sum: Integer;
var
  I: Integer;
begin
  Result := 0;
  for I := 1 to N do
    if (A[i] > 0) and (A[i] mod 2 = 0) then
      Inc(Result, A[i]);
end;