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

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

var

  a, b, c, d : integer;

begin

  d := 0;

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

  readln (a, b, c);

  if a < 0 then inc (d);

  if b < 0 then inc (d);

  if c < 0 then inc (d);

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

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

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

end.