program DecDemo;
var
  x: Integer;
  y: array [1 .. 5] of Integer;
  p: ^Integer;
begin
  x := 9;
  Dec (x, 10);     { yields -1 }
  {$X+}            { Turn on extended systax }
  p := @y[5];      { p points to y[5] }
  Dec (p, 3)       { p points to y[2] }
end.
