{$ifdef fpc}
{$mode delphi}
{$endif}

var
  s: shortstring;
begin
  s:=#$1234;
end.