var a:string;
for i:=1 to length(a) do
g:=i;
if a[i]=' ' then begin
for g to length(a)
writeln(a[g]);
end;
var a:string;
for i:=1 to length(a) do
g:=i;
if a[i]=' ' then begin
for g to length(a)
writeln(a[g]);
end;