Program Menghitung Luas Bangun Datar

UAS Mata Kuliah Bahasa Pemrograman Pascal Tentang Menghitung Luas Bangun Datar.
Semoga Bermanfaat......

Program UAS_ANGGA_;
uses crt;
Const phi=3.14;
Var
Pilih : integer;
  lu:real;
  r,alas,tinggi,p,l:integer;
  q:char;

Procedure Lingkaran;
begin;
Clrscr;
  GotoXY(15,1);Writeln('PROGRAM LINGKARAN ANGGA YULIUS ADE PUTRA');
  Writeln('*******************************************************************************');
  Write('Masukkan Panjang Jari-Jari   =');
  read(r);
  readln;
  lu:=phi*r*r;
  gotoXY(1,8);Writeln('Panjang Jari-Jari            =',r);
  Writeln('Luas Lingaran                =',lu:3:2);
  gotoxy(30,12);writeln('Terima Kasih');
  writeln;
  writeln('Nama  :Angga Yulius Ade Putra');
  writeln('NIM   :140202004');
  writeln('D3 Manajemen Informatika/2014');
  readln;
  end;
 
Procedure Persegi_Panjang;
 begin;
 Clrscr;
  GotoXY(15,1);Writeln('PROGRAM PERSEGI PANJANG ANGGA YULIUS ADE PUTRA');
  Writeln('*******************************************************************************');
  Write('Masukkan Panjang  ='); readln(p);
  Write('Masukkan Lebar   =');readln(l);
  readln;
  lu:=p*l;
  gotoXY(1,8);Writeln('Panjang          =',p);
  Writeln('Lebar                 =',l);
  Writeln('Luas Persegi Panjang =',lu:3:2);
  gotoxy(30,12);writeln('Terima Kasih');
  writeln;
  writeln('Nama  :Angga Yulius Ade Putra');
  writeln('NIM   :140202004');
  writeln('D3 Manajemen Informatika/2014');
  readln;
  end;
 
Procedure Segitiga;
 begin;
 clrscr;
  GotoXY(15,1);Writeln('PROGRAM SEGITIGA ANGGA YULIUS ADE PUTRA');
  Writeln('*******************************************************************************');
  Write('Masukkan Panjang Alas  =');readln(alas);
  write('Masukkan Tinggi        =');readln(tinggi);
     lu:=alas*tinggi*0.5;
     writeln('Luas    =',lu:6:2);
     gotoxy(25,10);writeln('Terima Kasih');
     writeln('Nama      :Angga Yulius Ade Putra');
     writeln('NIM       :140202004');
     writeln('D3 Manajemen Informatika');
     readln;
end;

Procedure Persegi;
 begin;
 Clrscr;
  GotoXY(15,1);Writeln('PROGRAM PERSEGI ANGGA YULIUS ADE PUTRA');
  Writeln('*******************************************************************************');
  Write('Masukkan Panjang Sisi  ='); readln(p);
  readln;
  lu:=p*p;
  gotoXY(1,8);Writeln('Panjang          =',p);
  Writeln('Luas Persegi =',lu:3:2);
  gotoxy(30,12);writeln('Terima Kasih');
  writeln;
  writeln('Nama  :Angga Yulius Ade Putra');
  writeln('NIM   :140202004');
  writeln('D3 Manajemen Informatika/2014');
  readln;
  end;

 begin; {main program}
 repeat
clrscr;
writeln('************************AYO BELAJAR LUAS BANGUN DATAR***************************');
WRITELN('================================================================================');
writeln('');
writeln('1.  Luas Lingkaran');
writeln('2.  Luas Persegi Panjang');
writeln('3.  Luas Segi Tiga');
writeln('4.  Luas Persegi');
writeln('');
WRITELN('================================================================================');
writeln('Tentukan Pilihan [1/2/3/4/]');
Readln(pilih);
case pilih of
1  : Lingkaran;
2  : Persegi_Panjang;
3  : Segitiga;
4  : Persegi;
else
writeln;
Textcolor(LightRed);
writeln('                       Maaf Pilihan Diluar Jangkauan Program');
writeln;
end;

write('      Tekan 5 untuk keluar dari program atau tombol lain untuk mengulang ?'); readln(q);
q:=upcase(q);
until q='5';
Textcolor(LightCyan);
writeln;
writeln;
writeln('');
writeln('                             Anda Akan Keluar Dari Program');
writeln('                          Silahkan Tekan Enter Satu Kali Lagi');
writeln('                                      TERIMAKASIH');
readln;
end.