SET STAT OFF
SET TALK ON
STORE 0 TO R,CA,SA
STORE "  " TO X
@ 2,3 SAY " ENTER SIDE/RADIUS " GET R
READ
@ 4,3 SAY "ENTER PROCESS"GET X
READ
IF X ="CA"
CA =3.14*R*R
@ 6,3 SAY "AREA OF CIRCLE IS"+STR(CA)
ELSE
IF X ="SA"
SA=R*R
@ 8,3 SAY "AREA OF SQUARE IS"+STR(SA)
ENDIF  
ENDIF
@ 9,3 SAY "FOUND"