nilaiMahasiswatanpa colo pascal

var
   a : byte;
begin
    a := strtoint (edit1.Text);
    case a of
    0..40  :label4.caption := 'E';
    41..55 :label4.caption := 'D';
    56..65 :label4.caption := 'C';
    66..70 :label4.caption := 'BC';
    71..77 :label4.caption := 'B';
    78..85 :label4.caption := 'AB';
    else
    label4.caption := 'A';
end;
end;
end.