Дана последовательность из n вещественных чисел, начинающаяся с отрица-
тельного числа. Определить, какое количество отрицательных чисел записано
в начале последовательности. Условный оператор не использовать.

 const     n = 5; var   a,i,k : integer;    begin  readln (a);  k := 1;   While (a < 0) and (k < n) do   begin    k := k +1;    readln (a);   end;     for i := k to n do    readln (a);    a := k;    While a <n do   begin    k := k -1;    a := n;   end;  writeln (k);  end.