Contoh Program Array Constan Pascal

program arrayconstan;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
    nama = 'Amir';
    nip = 'A3110';
    gaji = 1750000;
    lembur = 50000;
begin
  { TODO -oUser -cConsole Main : Insert code here }
    readln;
    writeln(' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ');
    writeln(' @@@     Program Array Constan    @@@ ');
    writeln(' @@@   Muhammad Husnu Dzihan TIF  @@@ ');
    writeln(' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ');
    readln;
    writeLn('  Nama Pegawai : ',nama);
    writeLn('  N I P        : ',nip);
    writeLn('  Gaji Pokok   : ',gaji);
    writeLn('  Uang Lembur  : ',lembur);
    writeLn(' ----------------------------- +');
    writeLn('  Total Gaji : ',gaji+lembur);
    writeLn;
    writeLn('Keep spirit');
 readLn;

end.

Hasilnya :

http://husnuboys.blogspot.com/