mengitung NilaiMahasiswa dengan pascal

var
Hasil : integer;
begin
Hasil := strtoint (edit1.Text);

if Hasil>=86 then
   begin
   H.Caption:='A';
   H.font.color:=clGreen;
   end
   else
   if Hasil>=78 then
   begin
   H.Caption:='AB';
   H.font.color:=clGreen;
   end
   else
   if Hasil>=71 then
   begin
   H.Caption:='B';
   H.font.color:=clGreen;
   end
   else
   if Hasil >=66 then
   begin
   H.Caption:='BC';
   H.font.color:=clYellow;
   end
   else
   if Hasil>=56 then
   begin
   H.Caption:='C';
   H.font.color:=clYellow;
   end
   else
   if Hasil>=41 then
   begin
   H.Caption:='D';
   H.font.color:=clRed;
   end
   else
   begin
   H.caption:='E' ;
   H.font.color:=clRed;
   end
end;
end.