var

x: array[1..5]

index: real;

i: integer;

begin

i:=0;

for i to 13 do

begin

 if x[i] < 0

  then

   index++;

end;

writeln('Кількість = ',index);

readln;

end.