Program Pendaftaran Mahasiswa Baru

program mhs;

uses wincrt;

var no,nama,tempat,tgl,bln,thn,seko : string;

biaya_pend,biaya_ako,total:real;

tanggal,tahun,bulan,asal:integer;

begin

write('No                       :'); readln(no);

write('nama                     :'); readln(nama);

write('Asal Sekolah             :'); readln(seko); writeln;

write('tempat, tgl lahir        :'); readln(tempat);

gotoxy(35,5);read(tanggal);

if tanggal > 30 then

begin

write('tanggal yang anda masukkan salah!');

readkey; donewincrt;

end;

gotoxy(38,5);read(bulan);

if bulan > 12 then

begin

write('bulan yang anda masukkan salah!');

readkey; donewincrt;

end;

gotoxy(41,5);read(tahun);

if tahun > 1996 then

begin

write('tahun yang anda masukkan salah!');

readkey; donewincrt;

end;

write('Biaya Pendidikan         :'); readln(biaya_pend);

write('Biaya Akomodasi          :'); readln(biaya_ako);

total:=biaya_pend+biaya_ako;

writeln('total biaya            :', total:0:00);

end.