freepascal.compiler/docs/refex/ex67.pp

Program Example67;

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

begin
  W:=SSeg;  
end.