path: root/fpcdocs/refex/ex67.pp

Program Example67;

{ Program to demonstrate the SSeg function. }
Var W : Longint;

begin
  W:=SSeg;
end.