Последовательно запрашивая у пользователя произвольные числа, пока не будет введён 0. Вычислить количество положительных и отрицательных чисел и их суммы — Basic(Бейсик)

DO
INPUT"vvedite chislo ",a
IF a>0 THEN kp=kp+1:sp=sp+a
IF a<0 THEN ko=ko+1:so=so+a
LOOP UNTIL a=0
PRINT"kol. pol=";kp
PRINT"som pol=";sp
PRINT"kol. otr=";ko
PRINT"sum otr=";so