Program Mencari_Luas_Bangunan_Datar pascal

program mencari_luas_bangun_datar;

uses crt;

var

        l,a,t:real;

        panjang,luas,lebar:integer;

        b,r:real;

        pil:char;

begin

        clrscr;

        writeln('1.  MENGHITUNG LUAS SEGITIGA');

        writeln('2.  MENGHITUNG LUAS PERSEGI PANJANG');

        writeln('3.  MENGHITUNG LUAS LINGKARAN');

        write('===== PILIHAN ANDA =====');

        pil:=readkey;

        writeln;

        if pil='1' then

        begin

        write('MASUKKAN ALAS = ');

        readln(a);

        write('MASUKKAN TINGGI = ');

        readln(t);

        l:=0.5*a*t;

        writeln('LUASNYA ADALAH = ',l);

        end

          else if pil='2' then

          begin

          write('MASUKKAN PANJANG = ');

          readln(panjang);

          write('MASUKKAN LEBAR =');

          readln(lebar);

          luas:=panjang*lebar;

          writeln('LUASNYA ADALAH =',luas);

          end

            else if pil='3' then

            begin

            write('MASUKKAN JARI-JARI = ');

            readln(r);

            b:=3.14*r*r;

            writeln('HASIL LUAS LINGKARAN ADALAH =',b);

            end

             else

             begin

             writeln('== PILIHAN ANDA TIDAK DITEMUKAN ==');

            end;

            readln;

end.