PROGRAM ARINA_LABA1
DIMENSION A(5,5), B(5)
1 FORMAT(5F7.1)
READ *, (B(I), I = 1, 5)
DO I = 1, 5
DO J = 1, 5
A(I, J) = B(J)**(I-1)
END DO
END DO
DO I = 1, 5
PRINT 1,  (A(I, J), J = 1, 5)
END DO
END PROGRAM