{* Задача170 *}

REM basic

'


CLS
INPUT "Введите число элементов массива"; n
INPUT "Введите число t"; t
Dim a(n)
For i=1 To n
PRINT "Введите а("; i; ")"
INPUT а(i)
Next i
For i=1 To n
PRINT a(i);
Next i
PRINT
P=1
For i=1 To n
P=P*(a(i)^3-t)^5
Next i
l=SQR(P)
PRINT "l="; l
End