Даны числа a,b,c,d,e. подсчитать количество отрицательных среди данных чисел

//PascalABC.Net v3.1

var a,b,c,d,e,n:integer;

begin

  readln(a,b,c,d,e);

  if a<0 then inc(n);

  if b<0 then inc(n);

  if c<0 then inc(n);

  if d<0 then inc(n);

  if e<0 then inc(n);

  writeln('отрицательных: ',n);

end.