string7

//program pomocu koga se u zadatoj recenici preokrecu sve rijeci neparne duzine
program s;

var
s2,s1,rijec:string;
i,j:integer;

procedure okret (var s:string);
var     t:char; i,j:integer;
begin
    i:=1; j:=length(s);
    while (i<j) do
    begin
        t:=s[i];
        s[i]:=s[j];
        s[j]:=t;
        i:=i+1;
        j:=j-1;
    end;
end;

begin
//recenica je niz rijeci (mala slova) odvojenih blankom sa tackom na kraju
write('String: '); readln(s1);
writeln(s1);
s2:='';
delete(s1,length(s1),1);
s1:=s1+' ';
while (pos(' ',s1))>0 do
    begin
        rijec:=copy(s1,1,pos(' ',s1)-1);
        delete(s1,1,pos(' ',s1));
        if length(rijec) mod 2=1 then okret(rijec);
        s2:=s2+rijec+' ';
    end;
delete(s2,length(s2),1);
s2:=s2+'.';
writeln(s2);
readln;

end.