5. 字符串分割

program ex_5;
var
     st, st1, st2 : string;
     i, len : integer;
begin
     readln(st);
     len := length(st);
     st1 := copy(st, 1, (len+1) div 2);
     st2 := copy(st, (len+1) div 2+1, len-(len+1)div 2);
     writeln(st1);
     writeln(st2);
     readln;
end.