program ForDemo;
var
  CharSet: set of Char;
  c: Char;
  n: Integer;
  Fac: array [0 .. 10] of Integer;
  PInt: ^Integer;
begin
   CharSet := ['g', 'p', 'c'];
   for c in CharSet do
     WriteLn (c);       { prints c g p in three lines }
   Fac[0] := 1;
   for n := 1 to 10 do  { computes the factorial of n for n = 0 .. 10 }
     Fac[n] := Fac[n - 1] * n;
   {$X+}
   { prints n! for n = 0 .. 10 }
   for PInt := @Fac[0] to @Fac[10] do
     WriteLn (PInt - @Fac[0], '! = ', PInt^)
end.
