others/volume1/095.pas


1
2
3
4
5
6
7
8
9
10
11

uses strutils;

var
  s: ansistring;
  i: int32;

begin
  readln(s);
  s := ' ' + delspace1(s) + ' ';
  write(replacetext(copy(s, 2, length(s) - 1), ' ', chr(10)))
end.