program pembayaran_kuliah_GBS;

20-09-11

(3)

program pembayaran_kuliah_GBS;

uses wincrt;

var

NM,Jur:string;

NIM,kl,pmb:real;

 begin

clrscr;

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(28,15);write('By:Agustiawan');

gotoXY(28,18);writeln('Terima kasih');

end.