Mencari luas dan keliling bangun datar

Program Mencari_Luas_dan_Keliling_Bangun_Datar;
Uses crt;
Var a,b,c,t,r,p,lb,s: integer;
L,K: realProcedure menu;
Begin
writeln ('1. Segitiga');
writeln ('2. Lingkaran');
writeln ('3. Pesegi Panjang');
writeln ('4. Persegi');
End;

Procedure Segitiga;

Begin
writeln ('Menghitung Luas dan Keliling Segitiga');
write ('Panjang a= '); readln (a);
write ('Panjang b= '); readln (b);
write ('PAnjang c= '); readln (c);
write ('Tinggi Segitiga = '); readln (t);
L:= (a*t)/2;
K:= (a+b+c);
write ('Luas Segitiga = ', L:2:2); readln;
write ('Keliling Segitiga = ', K:2:2); readln;
End;

Procedure Lingkaran;

const phi=3.14;
Begin
writeln ('Menghitung Luas dan Keliling Lingkaran');
write ('Panjang r = '); readln (r);
L:= phi*r*r;
K:= 2*phi*r;
write ('Luas Lingkaran adalah ', L:2:2); readln;
write ('Keliling Lingkaran adalah ', K:2:2); readln;
end;

Procedure Persegi_Panjang;

Begin
writeln ('Menghitung Luas dan Keliling Persegi_Panjang');
write ('p = '); readln (p);
write ('l = '); readln (lb);
L:= p*lb;

K:= (2*p)+(2*lb);
write ('Luas Persegi_Panjang adalah ',L:2:2);readln;
write ('Keliling Persegi_Panjang adalah ',K:2:2);readln;
End;

Procedure Persegi;
Begin
writeln ('Menghitung Luas dan Keliling Persegi');
write ('panjang sisi = '); readln (s);
L:= s*s;
K:= 4*s;
write ('Luas Persegi adalah ',L:2:2); readln;
write ('Keliling Persegi adalah ',K:2:2); readln;
End;


Var pil:char;
Begin
Clrscr;
writeln ('Pilih Menu dibawah ini:');
Menu;
write ('Menu yang Anda pilih '); readln (pil);
Case pil of
'1': begin segitiga; end;
'2': begin lingkaran; end;
'3': begin persegi_panjang; end;
'4': begin persegi; end;
End; readln;
End.