program stroki_chet_nechet;
uses CRT;
var   i,d,j,k:integer;
       wd1,wd2:integer {wd1-начало слова, wd2-конец слова}
       line_in,line_out:string;
begin
ClrScr;
writeln('Введите текст:');
readln(line_in);

d:=0;
k:=0;
wd1:=1;
i:=1;
while i<=length(line_in) do
 begin
 if line_in[i]=' ' then
  begin
   inc(k);
   if k mod 2=0 then
    wd1:=i+1;
   if k mod 2<>0then
    begin
     wd2:=i;
     inc(d);
      for j:=wd2 downto wd1 do
       begin
        line_out[d]:=line_in[j];
        inc(d);
        writeln(line_out);
       end;
    end;
  end;
 inc(i);
 end;

writeln(line_out);
readln
end.