Задание во вложении.
Найти ошибки.
Заранее благодарю)

Ответы
после первого 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.