1. Kuvittelepa tehneesi mutkikas matemaattinen sovellus joka laskee erilaisia asioita pyöreistä kappaleista. Sitten, eräänä kauniina päivänä saat kuulla, että matemaattinen vakio pii on tähän asti laskettu aivan väärin. Siispä sinä, joka et omista korvaustoiminnolla varustettua tekstieditoria, etsit ohjelmastasi kaikki ne tuhat kohtaa joihin olet kirjoittanut piin likiarvon ja muutat niihin jokaiseen uuden arvon. Olisitko mahdollisesti päässyt helpommalla kirjoittamalla jokaiseen alun perinkin vain 'pii' ja määrittämällä ohjelman alkuun piin arvon?
2. Vakioiden käyttö selkeyttää koodia huomattavasti. Vakio, jonka nimestä näkee sen tarkoituksen, säästää paljon vaivaa koodia kommentoitaessa.

const
  OmaTeksti = 'Tämä on tekstivakio!';
  Pii = 3.14159265358979;
  JokuLukuVaan = 3125694;
  Heksadesimaaliluku = $1F6bC;

type
  Ase = (Puukko, Kirves, Pistooli, Haulikko, AK_47);

if OmaAse < Haulikko then OstaIsompi(TosiIso, VaikkaVelaksi);
if Vihollinen.Ase > Kirves then JuoksePakoon(Kauas, Kovaa);

var
  H455U_Luku: Integer;
  __Liukuluku: Single;
  OmaTeksti: String;

H455U_Luku := 7;
__Liukuluku := 9.99999;
OmaTeksti := 'Hello, World!';

H455U_Luku := 100 mod 3; { 1 }
H455U_Luku := 100 div 3; { 33 }
__Liukuluku := 9.99 + Luku; { 9.99 }
__Liukuluku := 9.99 * Luku; { 0 }
__Liukuluku := 4 / (Luku + 5); { 0.8 }
__Liukuluku := -__Liukuluku + 1; { -0.8 + 1 = 0.2 }
OmaTeksti := 'Pas' + 'cal' + ' on' + ' ki' + 'va' + ' kie' + 'li.'; { 'Pascal on kiva kieli.' } 

H455U_Luku := trunc(9.999); { 9 }
H455U_Luku := trunc(9.999 + 0.5); { 10 }
H455U_Luku := trunc(abs(-1.23)); { 1 } 

program AseSet;
type
  Ase = (Puukko, Kirves, Pistooli, Haulikko, AK_47);
var
  Varustus: set of Ase;

begin
  { Varustuksessa olkoot puukko ja kirves }
  Varustus := [Puukko, Kirves];

  { Otetaan puukko pois ja AK_47 tilalle }
  Varustus := Varustus - [Puukko] + [AK_47];

  { Onko meillä nyt haulikko? }
  if Haulikko in Varustus then
    Writeln('Haulikko on.');
end.

var
  Taulu: Array [1 .. 5] of Integer;
  Taulu2D: Array [1 .. 5, 3 .. 8] of Integer;
  Lippaan_Koko: Array [Ase] of Integer;

Taulu[1] := 10;
Taulu2D[1, 5] := 17;
Lippaan_Koko[Haulikko] := 1;
Taulu2D[Taulu[1], Taulu[2]] := 10; { Indeksiksi kelpaavat muuttujatkin. } 

program YleinenEsimerkki;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  { Siinä missä Byte voi olla väliltä 0 .. 255,
    Hedelma voi olla väliltä Omena .. Erikoishedelma }
  Hedelma = (Omena, Banaani, Paaryna, Erikoishedelma);
  Planeetat = (Merkurius, Venus, Maa, Mars, Jupiter, Saturnus, Uranus, Neptunus, Pluto);
  Lampoalue = (Trooppinen, Lauhkea, Jaatikko);

var
  Staattinen: array [Lampoalue, Planeetat] of set of Hedelma;
  { Staattisesta taulukosta tulee kaksiulotteinen,
    koska siihen on määritetty kaksi pituutta. }

  Dynaaminen: array of array of Integer;
  { Dynaamisesta taulukosta tulee kaksiulotteinen,
    koska "array of" lukee kaksi kertaa. Tämä ei
    siis toimi kuin Object Pascalissa. }

  Palsta: Integer;

const
  Pituus = 5;
  Leveys = 10;

begin
  { Asetetaan Dynaamisen taulukon pituudeksi Pituus.
    Koska numerot alkavat nollasta, tulee taulukosta
    kooltaan 0 .. (Pituus - 1) eli 0 .. 4 }
  SetLength(Dynaaminen, Pituus);

  { Asetetaan jokaisen palstan pituudeksi Leveys.
    Koska numerot alkavat yhä nollasta, tulee kunkin
    palstan leveydeksi 0 .. (Leveys - 1) eli 0 .. 9 }
  for Palsta := 0 to Pituus - 1 do
    SetLength(Dynaaminen[Palsta], Leveys);

  { Nyt Dynaamisen eri kohdille voidaan antaa arvoja.
    Koordinaatit laitetaan hakasulkuihin. }

  Dynaaminen[0][3] := 10;

  { Staattiselle ei tarvitse tehdä mitään ennen käyttöä.
    Kukin kohta on tyyppiä "set of Hedelma", jolloin
    joka kohdassa voi olla hedelmistä koottu joukko.
    Myös osoitustapa on erilainen kuin Dynaamisessa.

    Kaikki joukot merkitään hakasulkuihin.
    Joukkojen yhteen- ja vähenyslaskuissa joukkojen tulee olla samaa tyyppiä.
    Yksittäisten jäsentenkin tulee muodostaa joukko }

  Staattinen[Trooppinen, Maa] := [Omena, Banaani, Paaryna, Erikoishedelma];
  Staattinen[Lauhkea, Maa] := Staattinen[Trooppinen, Maa] - [Banaani, Erikoishedelma];
  Staattinen[Trooppinen, Mars] := [Erikoishedelma];
end.

type
  TBensatankki = record
    MaxLitraa: Integer;
    LitraaJaljella: Integer;
  end;
  TAuto = record
    KuljettuMatka: Integer;
    Huippunopeus: Integer;
    Tankki: TBensatankki;
  end;

var
  { Käytetään aiempaa tyyppiä, TAuto }
  OmaAuto: TAuto;

  { Määritellään, millainen tyyppi naapuri on }
  Naapuri: record
    Auto: TAuto;
    Rahat: Integer;
  end;

begin
  OmaAuto.Tankki.MaxLitraa := 50;
  OmaAuto.Tankki.LitraaJaljella := 0;

  { Viedään naapurilta bensat: }
  OmaAuto.Tankki.LitraaJaljella := Naapuri.Auto.Tankki.LitraaJaljella;
  Naapuri.Auto.Tankki.LitraaJaljella := 0;
end.