Среди чисел a, b, c определить количество отрицательных.

Program One; var a, b, c: real; count: byte; begin readln (a, b, c); count: =0; if a < 0 then inc (count); if b < 0 then inc (count); if c < 0 then inc (count); wrireln (count); end. Надеюсь на лучший ответ