Menghitung Luas Lingkaran-segitiga-persegi panjang

Uses crt;
Var
a, b, t, PJ, r, lb, L: real;
ops : integer;
Const
c1 = 1/2;
phi = 3.14;

Begin
ClrScr;
TextColor(Green);
Writeln ('l-------------------------------------------------------l');
Writeln ('l << PILIHAN >> l');
Writeln ('l-------------------------------------------------------l');
Writeln ('l 1.Menghitung Luas Lingkaran l');
Writeln ('l 2.Menghitung Luas Segitiga l');
Writeln ('l 3.Menghitung Luas Persegi Panjang l');
Writeln ('l-------------------------------------------------------l');
Writeln ('l Pilihan Nomer Berapa {1-3} : l');
Writeln ('l-------------------------------------------------------l');
Writeln;
Readln (ops);
Case ops of
1:
Begin
L:= phi*r*r;
Write ('Masukkan Jari-Jari Lingkaran = ');
Readln (r);
Writeln;
L:= phi*r*r;
Writeln ('Luas Lingkaran Adalah = ',L:4:6);
Readln;
End;
2:
Begin
L:= a*t*c1;
Write ('Masukkan Nilai Alas = ');
Readln (a);
Write ('Masukkan Nilai Tinggi = ');
Readln (t);
Writeln;
L:= a*t*c1;
Writeln ('Luas Segitiga Adalah = ',L:4:6);
Readln;
End;
3:
Begin
L:= PJ*lb;
Write ('Masukkan Nilai Panjang = ');
Readln (PJ);
Write ('Masukkan Nilai Lebar = ');
Readln(lb);
Writeln;
L:= PJ*lb;
Writeln ('Luas Persegi Panjang Adalah = ', L:4:6 );
Readln;
End;
Else
Write ('Ngawuuur, Pilihan Anda Salah !! ');
Readln;
End;
End.

http://layla-innocent.blogspot.com