kode program Qbasic

Perlu sedikit rilex untuk bisa menyelesaikkannya

10 cls
PRINT ">>MENU<<"
PRINT  "1.Biodata"
PRINT  "2.Luas LIngkaran"
PRINT  "3.Deret"
PRINT
PRINT  "-----------------------"
PRINT
INPUT "Masukan pilihan :", pilihan%
CLS
IF pilihan% = 1 THEN
  PRINT "DATA BIODATA"
  PRINT "-------------------"
  INPUT "Masukan nama :", nama$
  INPUT "Masukan npm :", npm&
  PRINT
  CLS
  PRINT "Selamat ";nama$;", Anda telah bergabung bersama komunitas kami"
  PRINT
  INPUT "masukan angka 5 untuk kembali ke menu awal", enter%
  enter%=5
  GOTO 10
ELSEIF pilihan% = 2 THEN
  PRINT "Menghitung Luas Lingkaran"
  PRINT "-----------------------------"
  INPUT "masukan jari-jari :", r!
  CLS
  pi! = 3.14
  luas! = pi! * r! ^ 2
  PRINT "Luas lingkarannya adalah ", luas!
  PRINT
  PRINT
  INPUT "Masukan angka 5 untuk kembali ke menu awal", awal%
  awal% = 5
  GOTO 10
  ELSE
  PRINT "DERET"
  PRINT "----------"
  FOR n = 1  TO 5
         m% = n * 3 + 1
        PRINT m%;
 NEXT
 PRINT
 PRINT
 INPUT "masukan angka 5 untuk kembali ke awal", akhir%
 akhir% = 5
 GOTO 10
 END IF
 END


Silahkan di coba...jangan lupa inggalkan comment yah....