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.