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

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