xDerOmmeNx
program s2; var n,x,s,k,s2:integer; begin  write('Введите кол-во чисел: ');  readln(n);  writeln('Введите числа: ');  s := 0; s2 :=0; for k := 1 to n do  begin  write(k,': ');  readln(x);  if (x > 0) and (x mod 2 = 0) then  s := s + x;  elseif (x < 0) and (x mod 2 =0) then s2 := s2 + x end;  writeln('Cумма четных положительных = ',s);   writeln('Cумма четных отрицательных = ',s2);  readln end.

elenaklon Var n,i,s,p,x:integer;
begin
write('Введите количество чисел: ');
readln (n);
i:=1;
s:=0;
p:=0;
while i <= n do
begin
write('Введите число: ');
readln (x);
if x >= 0 then s:=s+x
else p:=p+x;
i:=i+1
end;
writeln ('Сумма положительных чисел S := ',s);
writeln ('Сумма отрицательных чисел P := ',p)
end.

Пример:
Введите количество чисел: 5
Введите чисело: 2
Введите чисело: -2
Введите чисело: 3
Введите чисело: -3
Введите чисело: 0
Cумма положительных чисел S := 5
Cумма отрицательных чисел P := -5

Если схема как на картинке