CLS
PRINT “JUMLAH DATA”
I = 1
20 INPUT “BANYAKNYA DATA: “, N(I): FOR I = 1 TO N(I)
INPUT “ALAS = “, A(I)
INPUT “TINGGI = “, T(I)
L(I) = (A(I) * T(I)) / 2
PRINT “LUAS =”; L(I)
NEXT I
INPUT “APAKAH DATA SUDAH BENAR ?(Y/T)= “, D$
IF D$ = “T” THEN 20 ELSE
IF D$ = “Y” THEN 25
25 INPUT “MAU TAMBAH DATA ?(Y/T)= “, F$
IF F$ = “Y” THEN 20 ELSE
IF F$ = “T” THEN 30
COLOR (3): PRINT TAB(4); “***** LUAS SEGITIGA *****”: COLOR (6): PRINT
30 PRINT “ALAS”, “TINGGI”, “LUAS”: PRINT “——————————–”
FOR J = 1 TO I
PRINT A(J), T(J), L(J)
NEXT J
PRINT
END

Output :