{* Задача291 *}

REM basic

' Вводиться последовательность ненулевыхчисел завершаемая нулем.Определить максимальное
' отрицательное число в данной последовательности


CLS
max = -9999
Do
        INPUT n
        If n = 0 Then Exit Do
        If n < 0 Then
                If n > max Then max = n
        End If
Loop
PRINT max