Среди чисел 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.

Надеюсь на лучший ответ:)