COBOL

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD. 
DATA DIVISION.
WORKING-STORAGE SECTION.
01  EMPLOYEE-DETAILS. 
    05 EAGLE-ID PIC X(8).
    05 NAME.
        10 FIRST-NAME PIC X(20) VALUE 'ARMANDO'.
        10 LAST-NAME PIC X(20) VALUE 'CASAS'.
    05 ADRESS PIC X(40) VALUE 'DIRECCION LARGA #234 COL. AQUI SI MATAN'.
    05 HASHTAG PIC X(1) VALUE '#'.
    05 PHONE PIC 999999 VALUE 123456.
01  NEW-PHONE PIC 999999.
01  COUNTER PIC 9(02).
PROCEDURE DIVISION.



    
MOVE PHONE TO NEW-PHONE.
DISPLAY EMPLOYEE-DETAILS.
DISPLAY NEW-PHONE.

100-HASHTAGS SECTION.
    DISPLAY HASHTAG
    ADD 1 TO COUNTER.
    
    
PERFORM 100-HASHTAGS
    UNTIL COUNTER >10.
STOP RUN.