membuat program pemilihan pada pascal

oke baik......... sedikit berbagi tentang pascal. dan sebelumnya maaf lagi kalau ada kekurangan.......... soalnya z juga masih belajar jadi... hehehehehe Mengghitung luas segitiga menggunakan pascal.... Berikut ini adalah coding programnya : uses crt; var a,t,l, pil :integer; al,ti,lu :real; begin clrscr; begin writeln ('Pilihan :'); writeln ('1. Menghitung segiempat'); writeln ('2. Menghitung Segitiga'); writeln; write ('Tentukan Pilihan anda [1/2] : '); readln (pil); if pil=1 then begin write ('alas : '); readln (a); write ('tinggi : '); readln (t); l :=a*t; write ('Luas segiempat adlah : ',l); readln; end; if pil=2 then begin write ('alas :'); readln (al); write ('tinggi :'); readln (ti); lu :=0.5*al*ti ; write ('luas segitiga adalah : ',lu:2:0); readln; end; end; end.  Jika kita menekan tombol 1 maka hasilnya adalah sebagai berikut :  Jika kita menekan tombol 2 maka hasilnya adalah sebagai berikut : 1. Program Faktorial : uses crt; var i,hasil,n : integer; begin clrscr; write ('masukan angka : '); readln (n); hasil :=1; for i :=1 to n do hasil :=Hasil*i; write ('hasilnya adalah',hasil); readln; end.