Var
 S:string;
 i,N: integer;
 W:Array[1..255] of String;

Begin
 writeln('Enter the string: ');
 readln(S);
 N:=1;
 i:=0;
 Repeat
  Inc(i);
  W[N]:='';
  While (S[i]<>' ') and (i<=Length(S)) do
   begin
    W[N]:=W[N]+S[i];
    Inc(i);
   end;
  If i<=Length(S) then Inc(N);
 Until i>=Length(S);

 For i:=2 to N-1 do
  if (Length(W[i])<Length(W[i-1])) and (Length(W[i])>Length(W[i+1])) then write(W[i]+' ');

 Readln
End.

Const
 N=9; {Number of lines}
 M=8; {Number of columns}
Var
 i,j:Byte;
 A:Array[1..N+1,1..M+1] of Integer;
Begin
 for i:=1 to N+1 do A[i,M+1]:=0;
 for j:=1 to M do A[N+1,j]:=0;
 Randomize;
 Writeln('Initial Array: ');
 for i:=1 to N do
  begin
   for j:=1 to M do
    begin
     A[i,j]:=-10+Random(40);
     write(A[i,j]:5);
     A[i,M+1]:=A[i,M+1]+A[i,j];
     A[N+1,j]:=A[N+1,j]+A[i,j];
    end;
   writeln;
  end;
 writeln;
 Writeln('New Array: ');
 for i:=1 to N+1 do
  begin
   for j:=1 to M+1 do
    if (i<N+1) or (j<M+1) then write(A[i,j]:5);
   writeln;
  end;
 Readln
End.