Pascal (pendaftaran mahasiswa baru)

Program ini untuk menginputkan data pendaftaran mahasiswa baru dengan ketentuan sebagai berikut

1. Nomor, nama, tempat & tanggal lahir, asal sekolah, biaya pendaftaran, dan uang bangunan di inputkan.
2. Total pembayaran otomatis ( uang bangunan + biaya pendaftaran )
3. Tanggal maximal pada bulan ke 1,3,5,7,8,10,12 adalah 31, jika lebih program harus mengalami ERROR.
4. Tanggal maximal pada bulan ke 4,6,9,11 adalah 30, jika lebih program harus mengalami ERROR.
5. Tanggal maximal pada bulan ke 2 adalah 28 or 29, jika lebih program harus mengalami ERROR.
6. Jika bulan di isi lebih dari 12, maka program harus mengalami ERROR.
7. Tahun lahir minimal yang dapat mendaftar yaitu tahun >= 1995.

Langsng saja ini sourch codenya :

program m_baru;
uses wincrt;
var
nm,as,t:string;
d,m,y:integer;
no:integer;
tot,bp,ug:longint;
begin
write (' nomor             : '); readln (no);
write (' nama              : '); readln (nm);
write (' Tempat Lahir      : '); readln(t);
write (' tanggal lahir     : '); readln (d,m,y);
 case m of
     1,3,5,7,8,10,12:begin
                       if (d>31) then
                            begin
                            writeln('Tanggal salah');
                            readkey;
                            donewincrt;
                  end;
                  end;
     4,6,9,11:begin
                   if (d>30) then
                      begin
                      writeln('Tanggal salah');
                      readkey;
                      donewincrt;
                  end;
              end;
     2:begin
            if (y mod 4=0) then
            begin
                 if (d>29) then
                 begin
                      writeln('Tanggal salah');
                      readkey;
                      donewincrt;
                  end
            else
            begin
            if (d>28) then
             writeln('Tanggal salah')
             end;
       end;
     END;
     end;
     if ( m > 12) then
        begin
             writeln(' Bulan salah!');
             readkey;
             donewincrt;
        end
     else if (y >= 1995) then
            begin
            writeln('Tahun salah!');
            readkey;
            donewincrt;
     end;
     
write ('asal sekolah       : ');readln (as);
write ('biaya pendaftaran  : ');readln (bp);
write ('uang gedung        : ');readln (ug);
writeln;
tot:=(bp+ug);
writeln ('total              : ',tot)
end.

Dan dari sourch code tersebut, berikut layout yang d hasilkan :