Answer to Question #7869 in Programming & Computer Science for chevaughn hibbert

Question

help me change to pascal pease.

PRINT “ENTER YOUR NAME. TO STOP DATA ENTRY,TYPE STOP:”
READ NAME
WHILE NAME <> “STOP” DO
PRINT “ENTER THE PROGRAM ENROLLED EITHER GYM, YOGA OR
AEROBIC”
READ PROGRAMS
PRINT “ENTER MEMERSHIP FEE FOR THE MONTH”
READ MEM_FEE
PRINT “ENTER MONTHLY ATTENDANCE FEE FOR THE MONTH”
READ ATTEND_FEE
IF MEM_FEE = 1000 THEN
MEM = “REGULAR”

ELSE
MEM= "SPECIAL"
ENDIF

IF PROGRAMS = “YOGA”' AND MEM_FEE = 1000 THEN
COUNTYOGMFEE = COUNTYOGMFEE +1
ELSE
IF PROGRAMS = “AEROBIC” AND MEM_FEE = 1000 THEN
COUNTAERMFEE = COUNTAERMFEE +1
ELSE
IF PROGRAMS = “GYM” AND MEM_FEE = 1000 THEN
COUNTGYMMFEE = COUNTGYMMFEE +1
ENDIF
ENDIF
ENDIF


IF PROGRAMS = “YOGA” THEN
COUNTYOG =COUNTYOG+1
YOGATTEND_FEE = YOGATTEND_FEE + ATTEND_FEE
YOGMFEETOT = YOGMFEETOT + MEM_FEE
ELSE
IF PROGRAMS = “AEROBICS” THEN
COUNTAER =CCOUNTAER+1
AERATTEND_FEE = AERATTEND_FEE + ATTEND_FEE
AERMFEETOT = AERMFEETOT + MEM_FEE
ENDIF
ENDIF
PRINT “THE NAME OF THE MEMBER ENTERED IS”, NAME
PRINT “THE STATUS OF THE MEMBER”, MEM_STAT