Даны три целых числа (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 n0 then writeln ('среди трех чисел ', n,' отрицательных')

else

writeln ('среди трех чисел нет отрицательных')

end.