Составить блок схему и написать программу на языке программирования qbasic. дан массив а из 20 элементов. найти произведение элементов массива. результат вывести на печать.

CLS
p = 1
DIM A(20)
DATA 51, 22,33,44,25,76,87,28,229,30,81,882,43,84,85,26,37,88,99,10
FOR i = 1 TO 20
READ A(i)
PRINT A(i),
p = p * A(i)
NEXT i
PRINT
PRINT p