program dan design

PROGRAM PENILAIAN_UJIAN_MAHASISWA;
USES CRT;
VAR
NIM,NAMA : STRING;
ABSEN,TGS,UTS,UAS : INTEGER;
RATA : REAL;
BEGIN
CLRSCR;
WRITE('MASUKKAN NIM :');READLN(NIM);
WRITE('MASUKKAN NAMA SISWA :');READLN(NAMA);
WRITE('MASUKKAN NILAI ABSEN :');READLN(ABSEN);
WRITE('MASUKKAN NILAI TUGAS :');READLN(TGS);
WRITE('MASUKKAN NILAI UTS :');READLN(UTS);
WRITE('MASUKKAN NILAI UAS :');READLN(UAS);
RATA:=(0.1*ABSEN)+(0.2*TGS)+(0.3*UTS)+(0.4*UAS);
CLRSCR;
WRITELN('* * * * * * * * * * * * * * *');
WRITELN('PENILAIAN UJIAN MAHSISWA BSI');
WRITELN('* * * * * * * * * * * * * * *');
WRITELN('NIM :',NIM);
WRITELN('NAMA SISWA :',NAMA);
WRITELN('NILAI ABSEN :',ABSEN);
WRITELN('NILAI TUGAS :',TGS);
WRITELN('NILAI UTS :',UTS);
WRITELN('NILAI UAS :',UAS);
WRITELN('* * * * * * * * * * * * * * *');
WRITELN('SISWA DENGAN NAMA :',NAMA);
WRITELN('NILAI RATA-RATA :',RATA:3:0);
READLN;
END.