Contoh Program Case Of Nilai Pascal

program caseof;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
 nilai : char;
 nama : string;
begin
  { TODO -oUser -cConsole Main : Insert code here }

  readln;
  writeln (' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ');
  writeln (' @@@  Program Pernyataan Case of 2  @@@ ');
  writeln (' @@@    Muhammad Husnu Dzihan TIF   @@@ ');
  writeln (' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ');
  readln;

  write (' Masukkan Nama Anda   = ');
  readln(nama);
  write (' Masukkan Nilai A - E = ');
  readln(nilai);
  readln;
  case nilai of
  'A' , 'a' : write(' Nilai Anda Sangat Baik ');
  'B' , 'b' : write(' Nilai Anda Baik ');
  'C' , 'c' : write(' Nilai Anda Cukup Baik ');
  'D' , 'd' : write(' Nilai Anda Kurang Baik ');
  'E' , 'e' : write(' Nilai Anda Sangat Kurang Baik ');
     end;
   readln;
end.

Hasilnya :

http://husnuboys.blogspot.com/