Uses CRT;
Var
 A:Array[1..1000] of Integer;
 i,N,Mx,Mn,Imax,Imin,Smax,Smin:Integer;
Begin
 Clrscr;
 Write('N= ');
 Readln(N);
 For i:=1 to N do
  begin
   Write('A[',i:2,']= ');
   Readln(A[i]);
  end;
 ClrScr;
 for i:=1 to N do write(A[i]:4);
 Writeln;
 Writeln;
 Smax:=0;
 Smin:=0;
 Mx:=A[1];
 Mn:=A[1];
 Imin:=1;
 Imax:=1;
 for i:=2 to N do
  begin
   if A[i]<Mn then
    begin
     Mn:=A[i];
     Imin:=i;
    end;
   if A[i]>Mx then
    begin
     Mx:=A[i];
     Imax:=i;
    end;
  end;
 for i:=Imin+1 to N do Smin:=Smin+A[i];
 for i:=Imax+1 to N do Smax:=Smax+A[i];
 If Smin>Smax then
  writeln('After minimal')
 else
  writeln('After maximal');
 Readln
End.

Type
 W=Array[1..100] of string;

Var
 st:string;
 i,j,N,min1,max1,Imin,Imax:integer;
 wrd:W;

Procedure GetWords(s: string; var words:W; var Nw:integer);
var
 i,back: integer;
begin
 i := 1;
 Nw := 0;
 while i<=length(s) do
  begin
   while (i<=length(s)) and (s[i]=' ') do inc(i);
   if i<=length(s) then
    begin
     back:=i;
     while (i<=length(s)) and (s[i]<>' ') do inc(i);
    end;
   inc(Nw);
   words[Nw]:=copy(s, back, i-back);
  end;
end;

BEGIN
 Writeln('Enter the string:');
 Readln(st);
 Writeln;

 GetWords(st, wrd, N);

 min1:=length(wrd[1]);
 max1:=length(wrd[1]);
 Imin:=1;
 Imax:=1;

 for i:=2 to N do
  begin
   if length(wrd[i])<min1 then
    begin
     min1:=length(wrd[i]);
     Imin:=i;
    end;
   if length(wrd[i])>max1 then
    begin
     max1:=length(wrd[i]);
     Imax:=i;
    end;
  end;

 if Imin<Imax then
  Writeln('Shortest')
 else
  Writeln('Longest');

 readln;
END.