подсчитать количество отрицательных чисел среди чисел а,б,с.(программирование ветвящихся алгоритмов)

var

  a, b, c: real;

  count : byte;

begin

  read (a, b, c);

  count := 0;

  if a < 0 then inc (count);

  if b < 0 then inc (count);

  if c < 0 then inc (count);

  wrireln (count);

end.