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

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