Penggunaan If then dalam Free pascal dan Turbo pascal

Ok,setelah belajar membuat biodata dengan free pascal kita lanjut dengan penggunaan if then,kali ini saya akan membuat program menghitung bangun datar dengan mencabangkannya menggunakan if then,tanpa basa basi kita langsung saja menuju tkp:
ketikkan listing di free pascal atau turbo passcal:
program hitung_bangun_datar;
uses crt;
var
 s,a,t,ab,bc,ac:integer;
Kp,Lp,Ks,Ls:real;

pilih:char;
begin
clrscr;
       writeln('1.Persegi');
       writeln('2.Segitiga');
       writeln;
       write('Masukkan Pilihan : ');readln(pilih);
if pilih='1' then
begin
       write('Masukkan Sisi : ');readln(s);
       Kp:=s*4;
       Lp:=s*s*s*s;
       writeln('Keliling Persegi : ',Kp:0:2); ---->menggunakan 0:2 tandanya dua angka dibelakang koma
       writeln('Luas Persegi     : ',Lp:0:2);
end
else
if pilih='2' then
begin
     write('Masukkan Alas   : ');readln(a);
     write('Masukkan Tinggi : ');readln(t);
     write('Masukkan AB     : ');readln(ab);
     write('Masukkan BC     : ');readln(bc);
     write('Masukkan AC     : ');readln(ac);
     Ls:=(a*t)/2;
     Ks:=ab+bc+ac;
     writeln('Keliling segitiga : ',Ks:0:2);
     writeln('Luas Segitiga    : ',Ls:0:2);
end
else
begin
    write('Pilihan Tidak Ada');
end;
readln;
end.

Screenshot :

 

Sekian dulu belajar pascal tentang penggunaan if then pada percabangan,Semoga bermanfaaat!!!