vara,n:string;i:integer;beginreadln(a);for i:=1 to length(a) do beginif a[i]<>' ' thenn:=n+a[i]else beginwriteln(n);n:='';end;end;writeln(n)end.
var
a,n:string;
i:integer;
begin
readln(a);
for i:=1 to length(a) do begin
if a[i]<>' ' then
n:=n+a[i]
else begin
writeln(n);
n:='';
end;
end;
writeln(n)
end.