tugas bangun datar

Program Mencari_Luas_dan_Keliling_Bangun_Datar;
uses crt;
var a,b,c,r,p,lb,t,s:integer;
L, K:real;i: integer;

procedure menu;
begin
writeln ('1. Segitiga');
writeln ('2. Lingkaran');
writeln ('3. Persegi 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:0:2); readln;
write ('Keliling segitiga = ',K:0: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:=phi*2*r;
write ('Luas lingkaran adalah ',L:0:2); readln;
write ('Keliling lingkaran adalah ',K:0:2); readln;
end;
procedure persegipanjang;
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 = ',L:0:2); readln;
write ('Keliling persegi panjang = ',K:0: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= ',L:0:2); readln;
write ('Keliling persegi= ',K:0:2); readln;
end;
var pil:char;
begin
Repeat
clrscr;
textcolor (white);
writeln ('Pilih menu berikut ini:');
menu;
write('Menu yang Anda pilih ');readln(pil);
case pil of
'1': begin segitiga;end;
'2': begin lingkaran; end;
'3': begin persegipanjang;end;
'4': begin persegi;end;
end;
write('mau ulang lagi? [Y/N]:'); readln(Pil);
Pil:=Upcase (PIL);
Until (Pil<>'Y');readln;
end.