COBOL
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. REGIPROG.
000300 DATA DIVISION.
000400 WORKING-STORAGE SECTION.
000500 01 ITEM-NAME PIC X(20).
000600 01 QUANTITY  PIC 9(4).
000700 01 PRICE     PIC 9(6).
000800 01 SUBTOTAL  PIC 9(8).
000900 01 TAX       PIC 9(8).
001000 01 TOTAL     PIC 9(8).
001100 PROCEDURE DIVISION.
001200     ACCEPT ITEM-NAME.
001300     ACCEPT QUANTITY.
001400     ACCEPT PRICE.
001500     COMPUTE SUBTOTAL = QUANTITY * PRICE.
001600     COMPUTE TAX = SUBTOTAL * 0.10.
001700     COMPUTE TOTAL = SUBTOTAL + TAX.
001800     DISPLAY "ITEM: " ITEM-NAME.
001900     DISPLAY "QUANTITY: " QUANTITY.
002000     DISPLAY "PRICE: " PRICE.
002100     DISPLAY "SUBTOTAL: " SUBTOTAL.
002200     DISPLAY "TAX: " TAX.
002300     DISPLAY "TOTAL: " TOTAL.
002400     STOP RUN.