program pembayaran_kuliah_GBS;

program pembayaran_kuliah_GBS;

uses wincrt;

var

NM,Jur:string;

NIM,kl,pmb:real;

 begin

gotoXY(25,5);writeln('GICI BUSINESS SCHOOL:');

gotoXY(25,6);writeln('====================');

gotoXY(17,9);write('Masukkan NIM Anda:');readln(NIM);

gotoXY(16,10);write('Masukkan Nama Anda:');readln(NM);

gotoXY(13,11);write('Masukkan Jurusan Anda:');readln(Jur);

gotoXY(15,12);write('Masukkan Kelas Anda:');readln(kl);

gotoXY(6,13);write('Masukkan Pembayaran/Bulan ke:');readln(pmb);

gotoXY(6,15);write('-----------------------------------------------------------------');

gotoXY(10,18);writeln('DINYATAKAN BAHWA AGUSTIAWAN SUDAH MELUNASI UANG KULIAH NYA');

gotoXY(6,19);write('-----------------------------------------------------------------');

gotoXY(6,22);write('------------------- Jangan di tagih lagi yah --------------------');

end.