Задание во вложении.

Найти ошибки.

Заранее благодарю)

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