Даны три целых числа(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.