. нужно! Разработать программу для подсчета количества отрицательных чисел среди целых чисел a, b, c. Программа должна иметь

помогите пожалуйста. срочно нужно !

Разработать программу для подсчета количества отрицательных чисел среди целых чисел a, b, c. Программа должна иметь дружественный интерфейс. Протестировать программу для всех возможных случаев (когда количество отрицательных чисел равно 0, 1, 2 и 3).

      if d = 0 then writeln ('Среди введенных чисел нет отрицательных')

      if a < 0 then inc (d);

      else writeln ('Среди введенных чисел ', d, ' отрицательных числа');

      if c < 0 then inc (d);

    end.

      d := 0;

    begin

      writeln ('Введите 3 числа');

      a, b, c, d : integer;

      readln (a, b, c);

  • var

      else if d = 1 then writeln ('Среди введенных чисел 1 отрицательное число')

      if b < 0 then inc (d);