Pernyataan Percabangan IF pada Pascal

Pernyataan Percabangan IF pada Pascal

Uses wincrt;
Var
 Nil1, Nil2 : Integer;
 NilRata    : Real;

 Grade      : Char;
 Keterangan : String;
Begin
 ClrScr;
 Write('Masukan Nilai 1 : ');
 ReadLn(Nil1);
 Write('Masukan Nilai 2 : ');
 ReadLn(Nil2);

 NilRata := (Nil1 + Nil2)/2;
 WriteLn('Nilai Rata-Rata = ', NilRata:5:2);

 IF NilRata >= 90 THEN
 Begin
 Grade := 'A';
 Keterangan := 'Sempurna';
 End
 ELSE IF NilRata >= 80 THEN
 Begin
 Grade := 'B';
 Keterangan := 'Baik'
 End
 ELSE IF NilRata >= 70 THEN
 Begin
 Grade := 'C';
 Keterangan := 'Cukup'
 End
 ELSE
 Begin
 Grade := 'E';
 Keterangan := 'Gagal';
 End;

 WriteLn('Grade Nilai yang Didapat = ',Grade);
 WriteLn('Keterangan Nilai         = ',Keterangan);
 ReadLn;
End.