Latihan Procedure

Program latihan_prosedur;
uses crt;
procedure persegi_panjang;
var pjg,lbr,kel,luas:integer;
begin
clrscr;
writeln('Perhitungan Persegi Panjang');
writeln('===========================');

write('Masukkan panjang : ');readln(pjg);
write('Masukkan lebar : ');readln(lbr);
kel:=2*(pjg+lbr);
luas:=pjg*lbr;
writeln('Keliling: ',kel);
writeln('Luas : ',luas);
end;

procedure bujur_sangkar;
var sisi,kel,luas:integer;
begin
clrscr;
writeln('Perhitungan Bujur Sangkar');
writeln('===========================');
write('Masukkan sisi : ');readln(sisi);
kel:=4*sisi;
luas:=sisi*sisi;
writeln('Keliling: ',kel);
writeln('Luas : ',luas)
end;

procedure segitiga;
var alas,tinggi,kiri,kanan,kel:integer;
luas:real;
begin
clrscr;
writeln('Perhitungan Segitiga');
writeln('===========================');
write('Masukkan alas : ');readln(alas);
write('Masukkan tinggi : ');readln(tinggi);
write('Masukkan sisi kiri : ');readln(kiri);
write('masukkan sisi kanan: ');readln(kanan);
kel:=alas+kiri+kanan;
luas:=0.5*(alas*tinggi);
writeln('Keliling: ',kel);
writeln('Luas : ',luas:2:0)
end;

procedure lingkaran;
var r:integer;
kel,luas:real;
begin
clrscr;
writeln('Perhitungan Lingkaran');
writeln('===========================');
write('Masukkan jari-jari : ');readln(r);
kel:=2*22/7*r;
luas:=22/7*r*r;
writeln('Keliling: ',kel:2:0);
writeln('Luas : ',luas:2:0)
end;


var menu:integer;
lagi:char;
label awal,keluar;
begin
awal:
clrscr;
writeln('PROGRAM PERHITUNGAN BANGUN DATAR');
writeln('================================');
writeln('1.Persegi Panjang');
writeln('2.Bujur Sangkar');
writeln('3.Segitiga');
writeln('4.Lingkaran');
writeln('5.Keluar');
write('Pilihan Menu [1/2/3/4/5]: ');readln(menu);
case menu of
1:persegi_panjang;
2:bujur_sangkar;
3:segitiga;
4:lingkaran;
5:goto keluar;
else
begin
writeln('Salah pilih menu');
readln;
goto awal;
end;
end;
write('Ingin hitung lagi [Y/T]: ');readln(lagi);
if upcase(lagi)='Y' then
goto awal;
readln;
keluar:
end.