turbo pascal

uses wincrt;

label atas;

var nt:integer;

nam, nim, ttl, pro, hasil: string;

n1, n2, n3, n4:integer;

nr, s12, s34, na: integer;

lagi:char;

begin

atas:

clrscr;

write('Nama                      :');readln(nam);

write('tempat tanggal lahir      :');readln(ttl);

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

write('Progdi                    :');readln(pro);

write('1. masukkan nilai 1       :');readln(n1);

write('2. masukkan nilai 2       :');readln(n2);

write('3. masukkan nilai 3       :');readln(n3);

write('4. masukkan nilai 4       :');readln(n4);

clrScr;

writeln('Nama                      :',nam);

writeln('tempat tanggal lahir      :',ttl);

writeln('NIM                       :',nim);

writeln('Progdi                    :',pro);

writeln('masukkan nilai 1          :',n1);

writeln('masukkan nilai 2          :',n2);

writeln('masukkan nilai 3          :',n3);

writeln('masukkan nilai 4          :',n4);

writeln;

nr:=(n1+n2+n3+n4) div 4;

writeln('Nilai rata-rata                = ',nr);

s12:=n1-n2;

writeln('Selisih nilai 1 dan ke 2       = ',s12);

s34:=n4-n3;

writeln('Selisih nilai 3 dan ke 4       = ',s34);

nt:=n1+n2+n3+n4;

writeln('Nilai Total                    = ',nt);

na:=(4*n1+1*n2+3*n3+2*n4) div 10;

writeln('Nilai Akhir                    = ',na);

write('Konversi                        =');

if na>70 then write('Lulus') else write('tidak lulus');

case nt of

0..100    :hasil:='sangat kurang';

101..200  :hasil:='kurang memuaskan';

201..300  :hasil:='cukup memuaskan';

301..350  :hasil:='memuaskan';

else hasil:='sangat memuaskan';

end;

begin

writeln;

writeln('Berdasarkan Nilai yang telah tercantum diatas maka mahasiswa yang bernama ',nam,' mendapat predikat',hasil);