freepascal.compiler/tests/webtbs/tw8372.pp

program a;

{$APPTYPE CONSOLE}
{$IFDEF fpc}
 {$mode delphi}
{$ENDIF}
{$H+}

uses SysUtils,uw8372;

begin
 writeln(sChromatogram);
end.