procedure bangun

program m8c2;
uses wincrt;
var
pilihan : integer;
ulang : string;
procedure judul;
begin
WRITELN ('program mencari luas');
WRITELN ('====================');
end;
procedure menupilihan;
begin
writeln('------menu pilihan-----');
writeln('1.persegi panjang');
writeln('2.segitiga');
writeln('3.lingkaran');
writeln('4.jajar genjang');
writeln('5.bujur sangkar');
end;
procedure persegipanjang;
var
p, l, luas : integer;
begin
writeln (' nilai panjang: ');
readln (p);
writeln (' nilai lebar: ');
readln (l);
luas := p * l;
writeln;
writeln (' luas persegi panjang= ',luas);
end;
procedure segitiga;
var
a, t , luas : real;
begin
writeln ('nilai alas: ');
readln (a);
writeln ('nilai tinggi: ');
readln (t);
luas := 0.5 *a * t;
writeln ('luas segitiga: ',luas);
end;
procedure lingkaran;
var
r, luas : real ;
begin
writeln ('nilai radius : ');readln(r);
luas := 3.14 * r * r;
writeln ('luas lingkaran: ',luas);
end;
procedure jajargenjang;
var
a, t, luas : real;
begin
writeln ('nilai sisi bawah: ');
readln(a);
writeln('nilai tinggi: ');
readln(t);
luas := a * t;
writeln('luas jajar genjang: ',luas);
end;
procedure bujursangkar;
var
s1, s2, luas : integer;
begin
writeln ('nilai sisi pertama: ');
readln(s1);
writeln('nilai sisi kedua: ');
readln(s2);
luas := s1 * s2;
writeln ('luas bujursangkar: ',luas);
end;
begin
ulang := 'Y';
while (ulang='Y')or(ulang='y')do
begin
judul;
menupilihan;
write('silahkan anda pilih (1/2/3/4/5)dimenu pilihan: ');
readln(pilihan);
case pilihan of
1: persegipanjang;
2: segitiga;
3: lingkaran;
4: jajargenjang;
5: bujursangkar;


end;
write('mau mengulang lagi tekan Y: ');
readln(ulang);
end;
readln;
end.