Дана последовательность из 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.