CLSREM исходное произведние 1p=1REM исходная сумма 0s=0REM исходное количество 0n=0INPUT nINPUT mDIM a(n,m)FOR i=1 TO nFOR j=1 TO mINPUT a(i,j)IF a(i,j) >1.5 AND a(i,j) <3.2 THEN p=p*a(i,j); s=s+a(i,j); n=n+1NEXT jNEXT iPRINT "произведение равно"; pPRINT "сумма равна"; sPRINT "количество равно"; nEND