Pascal Script Luas Bangun Datar

{Luas Bangun Datar/Progam Penghitung Luas.PAS}
uses wincrt;
var b,p,l,a,t,m,s,g,h,i:real;
Kar:char;
label BD,Persegi,O,W,
LP,Segitiga,AS,TS,LS,Jajargenjang,AJ,TJ,LJ;
begin
BD:
clrscr;
writeln(' Menghitung Luas Bangun Datar');
writeln;
writeln;
writeln('1 = Persegi');
writeln('2 = Persegi Panjang');
writeln('3 = Segitiga');
writeln('4 = Jajaran Genjang');
writeln;
write('Tulislah Angka Bangun Yang Ingin Anda Hitung Luasnya = '); readln(b);
if b= 1 then Goto Persegi;
if b= 2 then Goto Persegi;
if b= 3 then Goto Segitiga;
if b= 4 then Goto Jajargenjang;
begin
Persegi:
clrscr;
writeln(' Menghitung Luas Pesegi Panjang dan Persegi');
writeln;
write('Masukkan Panjang(cm) : '); readln(p);
write('Masukkan Lebar (cm) : '); readln(l);
if p=0 then Goto O;
if l=0 then Goto W else Goto LP;
begin
O:
writeln;
write('Masukkan Luas (cm2): '); readln(m);
writeln;
Writeln('Panjangnya(cm) adalah ',m/l:2:2);
write(' Hitung Lagi (Y/T)?');Kar:=Readkey;
if UpCase(Kar)='Y' then Goto BD ;
begin
W:
writeln;
write('Masukkan Luas (cm2): '); readln(m);
writeln;
Writeln('Lebarnya(cm) adalah ',m/p:2:2);
write(' Hitung Lagi (Y/T)?');Kar:=Readkey;
if UpCase(Kar)='Y' then Goto BD;
begin
LP:
writeln;
Writeln('Luasnya(cm2) adalah ',p*l:2:2);
writeln;
write(' Hitung Lagi (Y/T)?');Kar:=Readkey;
if UpCase(Kar)='Y' then Goto BD;
begin
Segitiga:
clrscr;
writeln(' Menghitung Luas Segitiga');
writeln;
write('Masukkan Alas (cm) : '); readln(p);
write('Masukkan Tinggi (cm) : '); readln(l);
if p=0 then Goto AS;
if l=0 then Goto TS else Goto LS;
begin
AS:
writeln;
write('Masukkan Luas (cm2): '); readln(m);
writeln;
Writeln('Alasnya(cm) adalah ',m*2/l:2:2);
write(' Hitung Lagi (Y/T)?');Kar:=Readkey;
if UpCase(Kar)='Y' then Goto BD;
begin
TS:
writeln;
write('Masukkan Luas (cm2): '); readln(m);
writeln;
Writeln('Lebarnya(cm) adalah ',m*2/p:2:2);
write(' Hitung Lagi (Y/T)?');Kar:=Readkey;
if UpCase(Kar)='Y' then Goto BD;
begin
LS:
writeln;
Writeln('Luasnya(cm2) adalah ',0.5*p*l:2:2);
writeln;
write(' Hitung Lagi (Y/T)?');Kar:=Readkey;
if UpCase(Kar)='Y' then Goto BD;
begin
Jajargenjang:
clrscr;
writeln(' Menghitung Luas Jajaran Genjang');
writeln;
write('Masukkan Alas (cm) : '); readln(g);
write('Masukkan Tinggi (cm) : '); readln(h);
if g=0 then Goto AJ;
if h=0 then Goto TJ else Goto LJ;
begin
AJ:
writeln;
write('Masukkan Luas (cm2): '); readln(i);
writeln;
Writeln('Alasnya(cm) adalah ',i/h:2:2);
write(' Hitung Lagi (Y/T)?');Kar:=Readkey;
if UpCase(Kar)='Y' then Goto BD;
begin
TJ:
writeln;
write('Masukkan Luas (cm2): '); readln(i);
writeln;
Writeln('Lebarnya(cm) adalah ',i/g:2:2);
write(' Hitung Lagi (Y/T)?');Kar:=Readkey;
if UpCase(Kar)='Y' then Goto BD;
begin
LJ:
writeln;
Writeln('Luasnya(cm2) adalah ',g*h:2:2);
writeln;
write(' Hitung Lagi (Y/T)?');Kar:=Readkey;
if UpCase(Kar)='Y' then Goto BD;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end.