Program Nama Hari Bahasa Pascal

Hai, hari ini akan saya posting contoh bahasa pemrograman Pascal mengenai menampilkan nama hari berdasarkan inputan kode angka...
:D

program hari;
uses crt;
var kode_hari: integer;
begin
clrscr;
     writeln('menentukan hari');writeln;
     writeln('1. senin 2. selasa 3. rabu');
     writeln('4. kamis 5. jumat 6. sabtu 7. minggu');writeln;
     write('masukkan kode hari(1..7): ');readln(kode_hari);writeln;
     case kode_hari of
          1: writeln('hari senin');   5: writeln('hari jumat');
          2: writeln('hari selasa');  6: writeln('hari sabtu');
          3: writeln('hari rabu');    7: writeln('hari minggu');
          4: writeln('hari kamis');
          else
              writeln('kesalahan dalam input kode hari');
     end;
     readln;
end.
 

kemudian Run, tekan Ctrl+F9
isikan semuanya...
dan hasilnya :

jika terjadi kesalahan dalam program, mohon di komen agar bisa kami perbaiki, oce kawan :D 

Silahkan dikembangkan lebih jauh lagi, karna kami hanya menyediakan program-program sederhana untuk dikembangkan oleh para pembaca sekalian...

mohon maaf apabila ada salah-salah kata dari kami ya!!
Terima Kasih  :D   

Sudah Baca Yang Ini..?