Для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты.Если первое число четно, то выведите сумму этих четырех чисел.Если второе и третье числа положительны,то выведите их среднее арифметическое.Если выполняются одновременно два перечисленных выше условия, то выведите все четыре числа без изменения.Иначе, выведите числа, противоположные исходным.Составьте соответствующие отладочные примеры и проверьте работу каждой программы.

Var
  a, b, c, d : integer;
begin
  read (a, b, c, d);
  if a mod 2 = 0 then
    writeln (a + b + c + d);
  if (b > 0) and (c > 0) then
    writeln ((a + b + c + d) / 4);
  if (a mod 2 = 0) and (b > 0) and (c > 0) then
    writeln (a, , b, , c, , d)
  else 
    writeln (-a, , -b, , -c, , -d);
end.