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

vara,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.