6. 字符串连接

program ex_6;
var
     st : array [1 .. 100] of string;
     n, i : integer;
     str : string;
begin
     readln(n);
     for i := 1 to n do
     begin
         readln(st[i]);
         str := str+st[i];
     end;
     write(str);
     readln;
end.