var
x: array[1..5]
index: real;
i: integer;
begin
i:=0;
for i to 13 do
if x[i] < 0
then
index++;
end;
writeln('Кількість = ',index);
readln;
end.
