С клавиатуры вводятся N чисел. Составить прогрмамму которая подсчитывает количество отрицательных среди введенных чисел КАК МОЖНО БЫСТРЕЕ ​

язык Pascal:

var s,n:longint;

begin

s:=0;

repeat

readln(n);

if (n * (-1)) > 0

then s:=s+1;

until n=0;

writeln(s)

end.

то есть, вы можете вводить сколько угодно чисел, но последнее должно быть нулём.