AGDAN_2

DIM Sum AS LONG, C AS INTEGER, CV AS LONG
CLS
C = 1
DO
    INPUT "Введите число: ", CV
    IF CV > 0 THEN
        EXIT DO
    ELSEIF C MOD 2 = 1 THEN
        Sum = Sum + (-CV)
    ELSE
        Sum = Sum + (CV * CV)
    END IF
    C = C + 1
LOOP
C = C - 1
PRINT "Сумма:"; Sum
PRINT "Количество слагаемых:"; C