CLSINPUT "N"; NDIM A(N)FOR I = 1 TO N INPUT "A"; A(I)NEXTFOR I = 1 TO N IF A(I) / 2 <> INT(A(I) / 2) THEN sum = sum + A(I) ^ 2 END IFNEXTPRINT sum
CLS
INPUT "N"; N
DIM A(N)
FOR I = 1 TO N
INPUT "A"; A(I)
NEXT
FOR I = 1 TO N
IF A(I) / 2 <> INT(A(I) / 2) THEN
sum = sum + A(I) ^ 2
END IF
NEXT
PRINT sum