program Project1;
{$mode objfpc}{$H+}
uses
SysUtils;
var
v: Double;
begin
v := 100000;
WriteLn(v:0:0);
WriteLn('#,###,##0.00;-#,###,##0.00;0 --> '+FormatFloat('#,###,##0.00;-#,###,##0.00;0', v));
WriteLn('#,##0.00;-#,##0.00;0 --> '+FormatFloat('#,##0.00;-#,##0.00;0', v));
WriteLn(',0.00;-,0.00;0 --> '+FormatFloat(',0.00;-,0.00;0', v));
WriteLn;
v := -100000;
WriteLn(v:0:0);
WriteLn('#,###,##0.00;-#,###,##0.00;0 --> '+FormatFloat('#,###,##0.00;-#,###,##0.00;0', v));
WriteLn('#,##0.00;-#,##0.00;0 --> '+FormatFloat('#,##0.00;-#,##0.00;0', v));
WriteLn(',0.00;-,0.00;0 --> '+FormatFloat(',0.00;-,0.00;0', v));
WriteLn;
ReadLn;
end.