1 2 3 4 5 6 7 8 9 10
uses strutils; var s: ansistring; begin readln(s); s := delspace1(' ' + s + ' '); writeln(copy(s, 2, length(s) - 2)) end.