Подсчитать количество отрицательных среди чисел а,b,c — Pascal(Паскаль)

var a,b,c:integer;
     k:byte;
begin
readln(a,b,c);
k:=ord(a<0)+ord(b<0)+ord(c<0);
write(k);
readln
end.