Запишите блок схему, алгоритм и программу которая определяет количество отрицательных чисел среди трёх введённых a,b,c

Var
 a,b,c,n: real;
 begin
 writeln (введи три числа);
 readln(a,b,c);
 n:=0;
 if a if b if c if n>0 then writeln (среди трех чисел  , n, отрицательных)
 else
   if n=0 then writeln (среди трех чисел нет отрицательных);
   end.