Задание 2 ПОСТРОЕНИЕ ДИГРАММ И ГРАФИКОВ СРЕДСТВАМИ MS EXCEL
решите задание про зонтик

1)
a = int(input("Введіть 1 число: "))
b = int(input("Введіть 2 число: "))
c = int(input("Введіть 3 число: "))
d = int(input("Введіть 4 число: "))
e = int(input("Введіть 5 число: "))
f = int(input("Введіть 6 число: "))
d = int(input("Введіть 7 число: "))
q = int(input("Введіть 8 число: "))
w = int(input("Введіть 9 число: "))
z = int(input("Введіть 10 число: "))
suma = [a,b,c,d,e,f,d,q,w,z]
print('Сума введених чисел = ',sum(suma))

2)
s = 0
while True:
a = int(input("Введіть число: "))
s += a
print("Сума введених чисел: ",s)
if a == 0:
break

Ошибки

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

Переменная p в начале равняется нулю. В эту переменную будет записываться общее произведение неотрицательных чисел, умножая p на каждое неотрицательное число, но при умножении любого числа на 0 произведение будет 0, поэтому нужно в начале присвоить ей единицуВ конце выводится последнее введённое число, а нужно вывести количествоПосле end не стоит точкаПравильный вариант программы

var p,i,x,count: integer;

begin

count := 0;

p := 1;

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(count);

writeln(p);

end

else

writeln('NO')

end.