Составьте программу вычисления среднего арифметического отрицательных
элементов.

var a, b, z, i: integer;begin readln(a); if (a < 0) then beginz := z + a;i := i+1;end; readln(b); if (b < 0) then beginz := z + b;i := i+1;end;if (i > 0) then writeln(z/i);end.