program case1; uses wincrt; var nama, alamat:string; nrp:string[8]; keterangan:string[2]; grade, pilih: char; nilai, nilai2, nilai3:integer; nilaiak:real; begin writeln('1. masukkan data mahasiswa --ATAU-- 2. keluar'); write('pilihan anda: '); readln(pilih); case pilih of '1': begin write('masukkan nama anda: '); readln(nama); write('masukan NIM anda: '); readln(nrp); write('masukan alamat anda: '); readln(alamat); write('masukan nilai tugas: '); readln(nilai); write('masukan nilai UTS: '); readln(nilai2); write('masukan nilai UAS: '); readln(nilai3); if (nrp='11') then keterangan:= 'S1' else if (nrp='31') then keterangan:='D3'; if (nilai >= 80) then grade :='A' else if (nilai >= 70) then grade :='B' else if(nilai >= 60) then grade:='C' else grade:='D'; nilaiak:= (2*nilai2+nilai+nilai3)/4; writeln('data mahasiswa yang diinputkan'); writeln('nama: ', nama); writeln('NIM: ', nrp); writeln('program studi: ',keterangan); writeln('alamat: ',alamat); writeln('nilai akhir: ',nilaiak:0:0); writeln('grade: ',grade); if grade='A' then writeln('LULUS') else if grade='B' then writeln('LULUS') else if grade='C' then writeln('LULUS') else writeln('TIDAK LULUS'); end; '2': begin writeln('anda mengakhiri program!'); Exit; end; else begin writeln('pilihan anda salah!'); Exit; end; end; writeln('====== By Agustiawan ======='); end.