//uses crt;
var
i,j,k,l:integer;
text,st:string;
begin
//clrscr;
writeln('vvedite text:');
readln(text);
i:=1; st:='';
while i<=length(text) do
begin
  while ((text[i]<>' ') and (text[i]<>'.')) do
  begin
    st:=st+text[i];
    i:=i+1;
  end;
  j:=2;  k:=1;  l:=1;
  while j<=length(st) do
  begin
    if st[j-1]>=st[j] then k:=k+1;
    if st[j-1]<=st[j] then l:=l+1;
    j:=j+1;
  end;
  if length(st)>1 then
  if ((k=length(st)) or (l=length(st))) then writeln('word = ',st);
  i:=i+1;
  st:='';
end;  
end.