Menghitung, Volume Kubus, Luas Persegi Panjang, Luas Segitiga, Luas Lingkaran, dengan Turbo Pascal.

uses crt;
var
   pil         : byte;
   s,p,l      : longint;
   a,t         : longint;
   Ls         : real;
   r            : integer;
   Lk         : real;
   vol,luas  : longint;
   const phi    =3.14;

Begin
     clrscr;
     writeln('menu program');
     writeln('============================');
     writeln('1.menghitung volume kubus');
     writeln('2.menghitung luas persegi panjang');
     writeln('3.menghitung luas segitiga');
     writeln('4.menghitung luas lingkaran');
     writeln('=============================');
     write('pilihan :');readln(pil);
     if pil= 1 then
     Begin
           clrscr;
           writeln('menghitung volume kubus');
           writeln('=========================');
           write('sisi kubus :');readln(s);
           vol:=s*s*s;
           writeln('volume kubus :',vol);
           readln;

     End
     else if pil= 2 then
     Begin
          clrscr;
          writeln('menghitung luas persegi panjang');
          writeln('============================');
          write('panjang :'); readln(p);
          write('lebar   :'); readln(l);
          luas:=p*l;
          writeln('luas :',luas);
          readln;

     End
     else if pil= 3 then
     Begin
          clrscr;
          writeln('menghitung luas segi tiga');
          writeln('=============================');
          write('alas   :'); readln(a);
          write('tinggi :'); readln(t);
          LS:=1/2*a*t;
          writeln('==============================');
          writeln('luas segi tiga :',ls:0:2);
          readln;

     End
     else if pil= 4 then
     Begin
          clrscr;
          writeln('menghitung luas lingkaran');
          writeln('===============================');
          write('masukkan jari-jari :'); readln(r);
          LS:=phi*r*r;
          writeln('================================');
          writeln('luas lingkaran :',lk:0:2);
          readln;
     End

  End.