Tugas 5

program percabangan;
uses crt;
var
nim,nama,kls: string;
n : byte;
begin
   textbackground(blue);
   clrscr;
   textcolor(yellow);
   writeln('*================================*');
   writeln('|=====Input Data Nilai Ujian=====|');
   writeln('*================================*');
   writeln;
   write('NIM           = '); readln(nim);
   write('Nama          = '); readln(nama);
   write('Kelas         = '); readln(kls);
   write('Masukan Nilai = '); readln(n);
   writeln;
   if n>=90 then
     write('Nilai Anda    = A')
   else if n>=70 then
     write('Nilai Anda    = B')
   else if n>=60 then
     write('Nilai Anda    = C')
   else if n>=45 then
     write('Nilai Anda    = D')
   else
     writeln('Nilai Anda Kosong');
   readln;
   writeln;
   textcolor(white); writeln('Tugas 5,i,12012739,Misbahul Munir');
   readln;
end.