Program Menghitung Luas dan Keliling Persegi Panjang Bahasa Pascal

Hai, hari ini akan saya posting contoh bahasa pemrograman Pascal mengenai menghitung luas dan keliling persegi panjang dengan case of berdasarkan inputan bilangan...
:D

uses crt;
var  panjang, lebar, luas, keliling, kode: integer;
begin
clrscr;
write('1. hitung luas');
write('2. hitung keliling');
writeln;
write('masukkan kode (1..2) : ');readln(kode);
case kode of
 1: begin
    writeln('menghitung luas persegi panjang');
    write('masukkan panjang:');readln(panjang);
    write('lebar : ');readln(lebar);
    write('Luas = panjang * lebar : ');
    writeln;
    luas := panjang* lebar;
    writeln('luasnya : ',luas);
    readln;
   end;

 2: begin
   writeln('menghitung keliling');
   write('masukkan panjang : ');readln(panjang);
   write('masukkan lebar   : ');readln(lebar);
   keliling:=2*panjang+2*lebar;
   writeln('maka keliling: ',keliling);
   readln;
    end;
    else
    write('hahaha');
  end;
  readln;
end.

kemudian Run, tekan Ctrl+F9
input bilangan kedalam program...
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..?