rem lab 4
DIM A(7,7)
FOR i =1 TO 7
FOR j=1 TO 7
INPUT A(i,j)
NEXT j
NEXT i
P=1
FOR i =1 TO 7
P=P*A(i,i)
NEXT i
PRINT P
max1=A(1,1)
max3=A(3,1)
FOR j =2 TO 7
IF A(1,j) >max1 THEN max1=A(1,j)
IF A(3,j) >max3 THEN max3= A(3,j)
NEXT j
R=max3 - max1
PRINT R
END