CONTOH PROGRAM PASCAL

uses wincrt;

var nama,kelas:string;

    nim,kehadiran,tugas,uts,uas,jumlah,semestr:integer;

    rata:real;

begin

writeln('-----------------------------');

writeln('|   DAFTAR NILAI MAHASISWA   |');

writeln('_____________________________');

write('NIM           : ');readln(nim);

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

write('SEMESTER      : ');readln(semestr);

write('KELAS         : ');readln(kelas);

writeln('______________________________');

write('NILAI KEHADIRAN: ');readln(kehadiran);

write('NILAI TUGAS    : ');readln(tugas);

write('NILAI UTS      : ');readln(uts);

write('NILAI UAS      : ');readln(uas);

writeln('______________________________');

jumlah:=kehadiran+tugas+uts+uas;

writeln('JUMLAH         : ',jumlah);

rata:=jumlah/4;

writeln('RATA-RATA NILAI: ',rata:2:2);

if rata<=50 then

writeln('IP=1.0');

if rata<=60 then

writeln('IP=1.5');

if rata<=70 then

writeln('IP=2.0');

if rata<=80 then

writeln('IP=3.0');

if rata<100 then

writeln('IP=4.0');

writeln;

writeln(nama);

writeln('berhasil mendpat jumlah nilai ',jumlah);

end.