Программирование. Повторение

Задание 13. Решить к 16 апреля в тетради задачу.

На обработку поступает последовательность из четырёх целых чисел. Нужно написать программу, которая выводит на экран количество неотрицательных чисел последовательности и их произведение. Если неотрицательных чисел нет, требуется вывести на экран «NO». Известно, что вводимые числа по абсолютной величине не превышают 10. Программист написал программу неправильно. Ниже эта программа для Вашего удобства приведена на пяти языках программирования.

var p,i,x,count: integer;
begin
    count := 0;  p := 0;
    for i := 1 to 4 do
    begin
        read (x);
        if x >= 0 then begin
            p := p*x;
            count := count+1;
        end
    end;
    if count > 0 then
    begin
        writeln(х);
        writeln(p);
    end
    else
        writeln('NO');
end.

Последовательно выполните следующее.

1. Напишите, что выведет эта программа при вводе последовательности -5 2 1 3.

2. Приведите пример такой последовательности, содержащей хотя бы одно неотрицательное число, что, несмотря на ошибки, программа печатает правильный ответ.

3. Найдите все ошибки в этой программе (их может быть одна или несколько). Известно, что каждая ошибка затрагивает только одну строку и может быть исправлена без изменения других строк. Для каждой ошибки:

1) выпишите строку, в которой сделана ошибка;

2) укажите, как исправить ошибку, т.е. приведите правильный вариант строки.

Достаточно указать ошибки и способ их исправления для одного языка программирования.

Обратите внимание, что требуется найти ошибки в имеющейся программе, а не написать свою, возможно, использующую другой алгоритм решения.

Исправление ошибки должно затрагивать только строку, в которой находится ошибка.