пара задачек на basic

[ma8883]

Проверьте пожалуйста первую задачку, и во второй помогите разобраться, не понимаю я программирование вообще.

Задача 1. Составить схему вычислительного процесса и написать программу на языке Basic или Visual Basic 6.0.. Входные данные задать самостоятельно. O= min(A, B2)+max(B, eC)

CLS
INPUT "BBEDUTE A: ", A
INPUT "BBEDUTE B: ", B
INPUT "BBEDUTE E: ", E
INPUT "BBEDUTE C: ", C
IF A < B ^ 2 THEN
O = A
ELSE
O = B ^ 2
END IF
IF B > e ^ c THEN
O = O + B
ELSE
O = O + e ^ c
END IF
WRITE "O = MIN(A, B^2) + MAX(B, E^c) = ", O


Задача 2. Составить схему вычислительного процесса и написать программу на языке Basic или Visual Basic 6.0. Входные данные задать самостоятельно.

Дан массив Аi, i=1,2,…,15. Найти сумму положительных элементов и сумму отрицательных элементов S1 и S2 . Определить, что больше S1 или S2 .

S1=0
S2=0
FOR I=1 TO 15
IF (A(I)>0) then
S1=S1+A(I)
ELSE
S2=S2+A(I)
ENDIF
NEXT I
IF (S1> S2) then
PRINT S1
ELSE
IF (S2>S1) THEN
PRINT S2
ELSE
PRINT “S1=S2”
ENDIF
ENDIF

[Z1000000]

По второй полагаю, что сумма положительных элементов всегда больше суммы отрицательных элементов. При условии что в каждую из сумм входит, хотя бы один элемент нужного знака.