Program pascal mencari luas persegi panjang dan segitiga

Kasus : Diperlukan sebuah program untuk mencari luas persegi panjang dan segitiga.

program LatihanModular;
uses crt;

var
a,b: integer;
L : real;
pil : char;

procedure Persegi_Panjang;
begin
L:= a * b;
writeln ('Luas Persegi Panjang   :',L:0:2);
end;


procedure Segitiga;
begin
L:= 1/2*a*b;
writeln ('Luas Segitiga          :',L:0:2);
end;

begin {program utama}
clrscr;
writeln;
writeln ('========== Program Mencari Luas Bangun Datar ==========');
writeln;
write (' Input nilai pertama     : '); readln (a);
write (' Input nilai kedua       : '); readln (b);
writeln;
writeln ('Menu Luas Bangun Datar : ');
writeln (' 1 : Luas Persegi Panjang ');
writeln (' 2 : Luas Segitiga' );
writeln;
write ('Masukkan Nomor Pilihan : '); readln(pil);
writeln;
case pil of
'1' : Persegi_Panjang;
'2' : Segitiga;

end;
readln;
end.

Output Program :