Const
 m=4;
Type
 Vect=Array[1..m] of Integer;
 Matr=Array[1..m] of Vect;
Const
 R:Matr=((-4,3,2,3),(5,6,9,13),(-7,11,-8,11),(45,-4,31,-4));
Var
 NS:Array[1..m] of Integer;
 mS,i:Integer;

Function Rep(VR:Vect):boolean;
var
 b:boolean;
 p,q:Integer;
begin
 b:=FALSE;
 for p:=1 to m-1 do
  for q:=p+1 to m do
   if VR[p]=VR[q] then b:=TRUE;
 Rep:=b;
end;

Begin
 mS:=0;
 for i:=1 to m do
  if Rep(R[i]) then
   begin
    Inc(mS);
    NS[mS]:=i;
   end;
 if mS=0 then Writeln('No such strings')
 else
 begin
  Writeln('String numbers:');
  for i:=1 to mS do Write('  ',NS[i]);
 end;
 Readln;
End.