CLS
DIM PIL
30 CLS
PRINT "1. MENHITUNG LUAS SEGITIGA"
PRINT "2. MENGHITUNG LUAS LINGKARAN"
INPUT " MASUKKAN PILIHAN ANDA: "; PIL
IF PIL = 1 OR PIL = 2 THEN GOTO 45 ELSE PRINT "PILIHAN TIDAK ADA"
45 SELECT CASE PIL
CASE 1
PRINT "MENGHITUNG LUAS SEGITIGA"
INPUT "MASUKKAN NILAI...
