после первого if в writeln забыли открыть кавычку

во втором if нужно взять условия объединенные and в скобки вот так

if ((a<0) and (b < 0)) or ((a<0) and (c < 0)) or ((c<0) and (b < 0)) then

 и да если есть хотябы одно отрицательное число, то программа выведет соответствующее сообщение и все, если их больше то она этого не выведет, поэтому первый и последний if нужно поменять местами(их условия)

var
    a, b, c: integer;

begin
    write('Введите числа - ');
    read(a, b, c);
    write('Кол-во чисел меньше нуля - ');
    if (a < 0) and (b < 0) and (c < 0) then
        writeln('3')
    else
    if ((a < 0) and (b < 0))
        or ((a < 0) and (c < 0))
        or ((b < 0) and (c < 0)) then
        writeln('2')
    else if (a < 0) or (b < 0) or (c < 0)     then
        writeln('1')
    else
        writeln('0');
end.