in PL/ I program
Extracted text: Debug the following PLI program. The program is given as a source listing i.e. a written record of the PLI program supplied by the computer. STNT PROCEDURE OPTION(MAIN); DECLARE(A(10),B(10))FIXED (5), (X,YZ) FIXED (4), C CHARACTER(5); PUTPAGE? PUT SKIP(3)EDIT('C',X,Y'Z', 'W, V'A',R') (COL(20).A.COL(30),A.COL (40),A, COL(50) A.COL(60) „A.COL(70), A.COL(85) A.COL(95) A: GET EDIT (X, Y,C,W) (X(2) F(4) ,X(3) ,F(4), X(7) A(5), F(2)): GET SKIP; IF X=0 & Y= 0 THEN GOTO NOMORE; IF X>Y THEN Z=2*X+Y;ELSE Z=2*(X+Y)-18: V=SQRT(40)(Y-2)-W*X)((X-Y); DOI=| TO W; A(I)=X+Y+3*I; B(I)=X-Y-3*I; IF 1=1 PUT SKIP(2)EDIT; EDIT(C.X.YZ, W,V.A(),B(I)) (COL(20),A(5).COL(30),F(4). COL(40) , F(4),COL(50),F(4),COL(60) F(2). COL(70),E(13,6) COL(85),F (6),COL(95),F(6)); ELSE PUT SKIP EDIT(A(I),B(I))(COL(85),F(5). COL(95),F (5)): FIND LI; GO TO IN; NOMORE; END BUGS; 1 2 3 5 8 L|: 12 13 14 15 17 6799 0H in67 123