* GROUP_29_2022510088_2022510126.cob
       IDENTIFICATION DIVISION.
       PROGRAM-ID. EUCLIDEAN.
       
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 P1-ARRAY.
          05 P1 OCCURS 8 TIMES PIC 9(3)V9(4).
       01 P2-ARRAY.
          05 P2 OCCURS 8 TIMES PIC 9(3)V9(4).
       01 I          PIC 9.
       01 DIFF       PIC S9(4)V9(4).
       01 SUM-SQ     PIC 9(6)V9(6) VALUE 0.
       01 DISTANCE   PIC ZZZ9.999999.
       
       PROCEDURE DIVISION.
           MOVE 6 TO P1 (1). MOVE 148 TO P1 (2).
           MOVE 72 TO P1 (3). MOVE 35 TO P1 (4).
           MOVE 0 TO P1 (5). MOVE 33.6 TO P1 (6).
           MOVE 0.627 TO P1 (7). MOVE 50 TO P1 (8).

           MOVE 1 TO P2 (1). MOVE 85 TO P2 (2).
           MOVE 66 TO P2 (3). MOVE 29 TO P2 (4).
           MOVE 0 TO P2 (5). MOVE 26.6 TO P2 (6).
           MOVE 0.351 TO P2 (7). MOVE 31 TO P2 (8).

           PERFORM VARYING I FROM 1 BY 1 UNTIL I > 8
               COMPUTE DIFF = P1 (I) - P2 (I)
               COMPUTE SUM-SQ = SUM-SQ + (DIFF * DIFF)
           END-PERFORM.

           COMPUTE DISTANCE = FUNCTION SQRT(SUM-SQ).
           DISPLAY "Euclidean Distance: " DISTANCE.
           STOP RUN.