Contoh Program Case of else Nilai Pascal

program caseofelse;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
nilai : integer;
nama : string;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  readln;
  writeln (' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@');
  writeln (' @@@     Program Case of else    @@@@');
  writeln (' @@@   Muhammad Husnu Dzihan TIF  @@@');
  writeln (' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@');
  readln;
  write(' Masukkan Nama Anda  = ');
  readln(nama);
  write(' Masukkan Nilai 1-10 = ');
  readln(nilai);
  readln;
  case nilai of
  1 : writeln(' Anda Menekan Angka "Satu" ');
  2 : writeln(' Anda Menekan Angka "Dua" ');
  3 : writeln(' Anda Menekan Angka "Tiga" ');
  4 : writeln(' Anda Menekan Angka "Empat" ');
  5 : writeln(' Anda Menekan Angka "Lima" ');
  6 : writeln(' Anda Menekan Angka "Enam" ');
  7 : writeln(' Anda Menekan Angka "Tujuh" ');
  8 : writeln(' Anda Menekan Angka "Delapan" ');
  9 : writeln(' Anda Menekan Angka "Sembilan " ');
  10 : writeln(' Anda Menekan Angka "Sepuluh" ');
  else writeln(' Anda Menekan Tombol yang Salah ');
  end;
  readln;
end.

Hasilnya :

http://husnuboys.blogspot.com/