Membuat Program Menu Pilihan ( case of ) dengan Menggunakan Turbo Pascal

Ya, kali ini saya akan berbagi ilmu tentang Turbo Pascal , Turbo Pascal merupakan salah satu software yang dapat digunakan untuk membuat macam-macam program, kali ini tentang program menu pilihan, dari program ini kita bisa memasukan pilihan-pilihan seperti yang kita ingin kan, misalnya tentang gaji, menu makanan/ minuman, daftar film bioskop, daftar harga, dll  yang kita ingin masukan ke daftar, INGAT! harus dengan menggunakan "case pilihan of" , contoh yang saya buat seperti ini coding nya ^.^ :

program menu_pilihan;
uses wincrt;
var nama: string;
    gaji, tunjangan: real;
    gaji_bersih: real;
    pilihan : char;
    a, b :integer;
begin
writeln('---MENU---');
writeln('1.gaji karyawan');
writeln('2.angka segitiga pascal to');
writeln('3.angka segitiga pascal downto');
writeln('PILIHAN [1-3]:') ;
readln(pilihan);

case pilihan of


'1' : begin
    write('nama karyawan: ') ;readln(nama);
    write('gaji pokok: ') ;readln(gaji);
    write('tunjangan: '); readln(tunjangan);
    gaji_bersih:=(gaji+tunjangan)-(gaji*10/100);
    writeln('karyawan yang bernama ',nama,' memiliki gaji sebesar ',gaji :2:0,' dan tunjangan sebesar ',tunjangan :2:0) ;
    writeln('gaji bersih: ',gaji_bersih:2:0);
    end;
'2' : begin
    for a:= 1 to 5 do
    begin
    for b:= 1 to a do
    write(b:3) ;
    writeln(' ');
    end;
    end;
'3' : begin
    for a:=5 downto 1 do
    begin
    for b:= 1 to a do
    write(b:3);
    writeln(' ');
    end;
    end;
end;
end.