program StringExample;
 
{$H+}
 
var
  S: String;
 
begin
  S := StringOfChar('x', 10000000);
  WriteLn(@S[Length(S) - 19] - @S[23]);
end.