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

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