Стол телевизионной игры < > разбит на 13 равных секторов. какое количество информации содержит сообщение ведущего: < < волчок указывает на супер-блиц> > .

Ошибки

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.

// PascalABC.NET 3.3

const n=4;
begin
  Writeln('1 массив:');
  var a:=MatrRandom(n,n,-10,10); a.Println(6);
  Writeln('2 массив:');
  var b:=MatrRandom(n,n,-10,10); b.Println(6);
  var c:=a.ElementsByRow.Where(x->x<0)+b.ElementsByRow.Where(x->x<0)+
      a.ElementsByRow.Where(x->x=0)+b.ElementsByRow.Where(x->x=0)+
      a.ElementsByRow.Where(x->x>0)+b.ElementsByRow.Where(x->x>0);
  c.Println;
end.

Пример:
1 массив:
    -6    -3     1     8
     6    -3    -8     0
     8    10    -3    -9
     1    -9    -2     6
2 массив:
    -7    -1    -3     9
    -2    -6     5     2
     0    10     1     0
     5    -2     5     5
-6 -3 -3 -8 -3 -9 -9 -2 -7 -1 -3 -2 -6 -2 0 0 0 1 8 6 8 10 1 6 9 5 2 10 1 5 5 5