Node:Card, Next:Cardinal, Previous:c, Up:Reference
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.