Contoh Prgoram Pascal Gabungan Procedure dan If Then Tentang Bangun Datar

program cnth_function_deir;
uses wincrt;
var pil:integer; luas:real;

procedure bujur_sangkar;
var sisi:integer;

    begin
    clrscr;
    gotoxy(14,5);write('###___Mencari Luas Bujur Sangkar___###');
    gotoxy(20,6);write('Input Sisi Panjang : ');
    gotoxy(20,7);write('Luas Bujur Sangkar adalah : ');
    gotoxy(41,6);readln(sisi);

    luas:=sisi*sisi;
    gotoxy(47,7);write(luas:6:1);
    repeat until keypressed;
    end;

procedure siku_siku;
var alas,tinggi:integer;
    begin
    clrscr;
    gotoxy(10,5);write('Mencari Luas Segitiga Siku-siku');
    gotoxy(14,6);write('Input Panjang Alas : ');
    gotoxy(14,7);write('Input Tinggi Segitiga : ');
    gotoxy(14,8);write('Luas Segitiga adalah : ');
    gotoxy(35,6);readln(alas);
    gotoxy(38,7);readln(tinggi);
    luas:=0.5*alas*tinggi;
    gotoxy(36,8);write(luas:6:1);
    repeat until keypressed;
    end;

    begin
    clrscr;
    gotoxy(14,2);write('Program Menghitung Luas Bangun');
    gotoxy(14,7);write('*** Bujur Sangkar dan Segitiga Siku-Siku ***');
    gotoxy(14,9);write('1. Luas Bujur Sangkar');
    gotoxy(14,10);write('2. Luas Segitiga Siku-siku');
    gotoxy(14,14);write('Selesai');
    gotoxy(14,3);write('Input Pilihan [1-2] : ');
    gotoxy(36,3);readln(pil);

    if pil=1 then
       bujur_sangkar
    else if pil=2 then
         siku_siku;
         repeat until keypressed;
end.