CONST
 M=10;
VAR
 St:Array[1..M] of String;
 i:Byte;
BEGIN
 For i:=1 to M do
  begin
   Writeln(i:2,' string:');
   Readln(St[i]);
  end;
 Writeln;
 For i:=1 to M do
  begin
   Write(i:2);
   If (Ord(St[i][1])>64) and (Ord(St[i][1])<91)
    then Writeln('  Big') else Writeln('  Small');
  end;
 Readln;
END.

VAR  
 St:Array[1..255] of String;  
 i,M:Byte; 
BEGIN
 Write('Number of strings (<256)= ');
 Readln(M);
 For i:=1 to M do   
  begin    
   Writeln(i:2,' string:');    
   Readln(St[i]);   
  end;  
 Writeln;  
 For i:=1 to M do   
  begin    
   Write(i:2);    
   If (Ord(St[i][1])>64) and (Ord(St[i][1])<91) then 
    Writeln('  Big') else Writeln('  Small');   
  end;  
 Readln; 
END.