{* Задача371 *}

REM basic

' Подсчитать сумму квадратов и произведение элементов одномерного массива


CLS
INPUT "vvedite n"; n
Dim a(n)
p = 1
For i = 1 To n
    INPUT a(i)
    s = s + a(i) ^ 2
    p = p * a(i)
Next
PRINT "s="; s, "p="; p
End