<code pascal>
program Project1;

const eso = 1;
      svrsek = eso + 1;

type figurka = ( nic, pesec, vez, kun, strelec, dama, kral );
     barva = ( cerna, bila );
     radka = 1..8;
     sloupec = ( A, B, C, D, E, F, G, H );
     policko = record
                  fig: figurka;
                  bar: barva;
               end;

var  sachovnice : array [radka, sloupec] of policko;

procedure nastav (r: radka; s: sloupec; fi: figurka; ba: barva);
begin
     sachovnice [r,s].fig := fi;
     sachovnice [r,s].bar := ba;
end;

procedure zaklad (r: radka; ba: barva);
begin
     nastav (r, a, vez, ba);
     nastav (r, b, kun, ba);
     nastav (r, c, strelec, ba);
     nastav (r, d, dama, ba);
     nastav (r, e, kral, ba);
     nastav (r, f, strelec, ba);
     nastav (r, g, kun, ba);
     nastav (r, h, vez, ba);
end;

var  r: radka;
     s: sloupec;
     p: policko;

begin
     zaklad (7, cerna);

     for s := A to H do
        nastav (2, s, pesec, cerna);

     for r := 3 to 6 do
        for s := A to H do
           nastav (r, s, nic, bila);

     for s := A to H do
        nastav (2, s, pesec, bila);

     zaklad (1, bila);
end.
</code>