Даны три целых числа(a b c) найти количество отрицательных чисел в исходном наборе

Var
a,b,c,n: integer;
 begin
 writeln (vvedi a,b,c);
 readln(a,b,c);
 n:=0;
  if a    if b      if c if n0 then writeln (среди трех чисел ,n, отрицательных)
 else
  writeln (среди трех чисел нет отрицательных)
   end.