Определить количество чисел в наиболее длинной подпоследовательности из подряд идущих чисел одного знака

Дана непустая последовательность не нулевых целых чисел, за которой следует 0:

Определить количество чисел в наиболее длинной подпоследовательности из подряд идущих чисел одного знака.

Использовать while, repeat и until.