Program Daftar Gaji Pegawai Record dengn Array bertipe Record

Program total_gaji_pegawai;
Uses wincrt;
type
  datapegawai=record
      Nip:string[11];
      Nama:string[12];
      golongan:char;
      tunjngn,totgaji,gaji:real;
  end;
var
   pegawai:array [1..30] of datapegawai;
   i,n    :integer;
Begin
write('Isi Banyak Pegawai : ');readln(n);
writeln;
 for i :=1 to n do
  begin
  with pegawai[i] do
   begin
    Write('Isi Nama Pegawai  : '); readln(Nama);
    Write('Isi NIP Pegawai   : '); readln(Nip);
    Write('Isi Golongan      : '); readln(golongan);
    writeln;
    case golongan of
    'A': gaji:=500;
    'B': gaji:=600;
    'C': gaji:=700;
    'D': gaji:=900;
    end;
    tunjngn := (15/100)*gaji;
    totgaji := (gaji+tunjngn);
    end;
   end;
    clrscr;
    Writeln('===========================================================');Writeln('|                                             DAFTAR GAJI PEGAWAI                                                |');
    Writeln('===========================================================');
    Writeln('| Nama Pegawai   NIP    Golongan   Gaji Pokok     Tunjangan     Total Gaji |');
    Writeln('===========================================================');
    for i := 1 to n do
     begin
      with pegawai [i] do
      writeln('|',Nama:10,Nip:10,golongan:8,gaji:10:2,tunjngn:16:2,totgaji:15:2,'|');
      end;
    Writeln('===========================================================');
 end.

Program Luas Bangun Datar menggunakan Procedure

Program luas;
uses wincrt;
 procedure segitiga;
 var
  a,t:integer;
  L  :real;
 Begin
  Writeln('Luas Segitiga');
  Write('Masukkan Nilai Tinggi : ');readln(t);
  Write('Masukkan Nilai Alas   : ');readln(a);
  L:= (0.5*a)*t;
  Writeln;
  Writeln('Luas Segitiga Adalah  : ',L:2:2);
 end;

 procedure lingkaran;
 var
  r:integer;
  L:real;
 Begin
  Writeln('Luas Lingkaran');
  Write('Masukkan Nilai Jari-jari : ');readln(r);
  L := (22/7)*sqr(r);
  Writeln;
  Writeln('Luas lingkaran Adalah    : ',L:2:2);
 end;

 procedure perspanjang;
 var
  a,t,L:integer;
 Begin
  Writeln('Luas Persegi Panjang');
  Write('Masukkan Nilai Alas         : ');readln(a);
  Write('Masukkan Nilai Tinggi       : ');readln(t);
  L:=a*t;
  Writeln;
  Writeln('Luas Persegi Panjang Adalah : ',L);
 end;

{Program Utama}
Var
 pilihan,menu:char;
Begin
 menu := 'T';
  while (menu = 'T') or(menu = 't') do
  begin
   Writeln('Luas Bangun Datar');
   Writeln('S. Luas Segitiga');
   Writeln('P. Luas Persegi Panjang');
   Writeln('L. Luas Lingkaran');
   Writeln('E. Exit');
   Writeln;
   Write('Masukkkan Pilihan Anda [S/P/L/E] : ');readln(pilihan);
   clrscr;
   case pilihan of
   'S' :begin
         segitiga;
         Write('Kembali ke Menu?[Y/T]');readln(menu);
         clrscr;
        end; 
   'P' :begin
         perspanjang;
         Write('Kembali ke Menu?[Y/T]');readln(menu);
         clrscr;
        end;
   'L' :begin
         lingkaran;
         Write('Kembali ke Menu?[Y/T]');readln(menu);
         clrscr;
        end;
   'E' :exit;

   else
    begin
     Writeln('Pilihan Salah');
    end;  
   end;  
  end;
 end.