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

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