Cara Membuat Menu Program Pilihan dengan Turbo Pascal

Hari ini saya membagi sebuah materi yaitu "cara membuat menu program pilihan dengan turbo pasacal". dengan eksekusi :
Menu Program
---------------------------------------------
1. Menghitung Volume Kubus
2. Menghiutng Luas Persegi
3. Menghitung Luas Segitiga
4. Menghitung Luas Lingkaran
-------------------------------------------
Pilihan :1 (misalnya saya memilih no. 1).
Menghitung Volume Kubus
------------------------------------------------
Sisi Kubus : 4
Volume Kubus : 16

uses crt;
var
   pil:byte;
   s,p,l,a,t,vol,luas:longint;
   ls,lk:real;
   r:integer;
   const phi=3.14;
begin
     clrscr;
     writeln('Menu Program');
     writeln('---------------------------------');
     writeln('1.Menghitung Volume Kubus');
     writeln('2.Menghitung Luas Persegi Panjang');
     writeln('3.Menghitung Luas Segitiga');
     writeln('4.Menghitung Luas Lingkaran');
     writeln('---------------------------------');
     write('Pilihan :');readln(pil);
     if pil = 1 then
     begin
          clrscr;
          writeln('Menghitung Volume Kubus');
          writeln('-----------------------');
          write('Sisi Kubus :');readln(s);
          vol:=s*s*s;
          writeln('Volume Kubus :',vol);
          readln;
     end
     else if pil=2 then
     begin
          clrscr;
          writeln('Menghitung Luas Persegi Panjang');
          writeln('-------------------------------');
          write('Lebar :');readln(l);
          write('Panjang :');readln(p);
          luas:=p*l;
          writeln('Luas :',luas);
          readln;
     end
     else if pil=3 then
     begin
          clrscr;
          writeln('Menghitung Luas Segitiga');
          writeln('-------------------------------');
          write('Alas :');readln(a);
          write('Tinggi :');readln(t);
          ls:=1/2*a*t;
          writeln('-------------------------------');
          writeln('Luas segitiga :',ls:0:2);
          readln;
     end
     else if pil=4 then
     begin
          clrscr;
          writeln('Menghiutng Luas Lingkaran');
          writeln('--------------------------------');
          write('Masukan Jari-Jari :');readln(r);
          lk:=phi*r*r;
          writeln('--------------------------------');
          writeln('Luas Lingkaran :',lk:0:2);
          readln;
     end
     else
     begin
          clrscr;
          writeln('Selamat Untuk Kaldius Ndruru Telah Berhasil');
          readln;
     end
end.

Maka hasilnya seperti gambar dibawah ini :