{* Задача18 *}

REM basic

' Возвести в квадрат каждый элемент массива


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