Konversi program BASIC dibawah ini ke program Pascal. BAHASA BASIC gosub [JUDUL] gosub [KONSTANTA] gosub [INPUT_DATA] gosub [PROSES] gosub [JUDUL] gosub [INFORMASI] end [JUDUL] print "PROGRAM KALKULASI GAJI KARYAWAN" print "Minggu ke I Mei 2010" return [KONSTANTA] UPJ = 25000 BON = 10000 LBR = 0.1 return [INPUT_DATA] input "Nama karyawan :";NM$ input "N I K :";NIK input "Waktu kerja :";T input "Bekeluarga ?(Y/T):";JW1$ cls return [PROSES] if T<=40 then G = UPJ*T else G =UPJ*T+UPJ*(T - 40)*1.1 if JW1$= "Y" then G = G + 10000 return '[INFORMASI] 'print "Nama Karyawan :";NM$ 'print "N I K :";NIK 'print "Gaji mingguan :";G 'print 'print " Medan, 15 april 2010" 'print 'print 'print 'print " Bendaharawan gaji" 'return