function Card (S: any_set): Integer;
The function Card (S) returns the number of elements in the set S.
Card is an ISO 10206 Extended Pascal extension.
program CardDemo; var Foo: set of 1 .. 100; begin Foo := [1, 2, 3, 5, 1, 1, 1, 2, 2, 2, 3, 3, 5, 5]; { four elements } WriteLn ('foo consists of ', Card (Foo), ' elements') end.