uses
    crt;
var
    s1,s2:string;

function GetMaxStr(var ss1,ss2:string):string;
var
    MaxS,Chek:string;
    i,right,left:integer;

begin

   MaxS:='';

   // ss1 - меньшая

   i:=1;

   repeat

      left:=i;

      right:=length(ss1);

      repeat


         Chek:=copy(ss1,left,right-left+1);


         if (pos(Chek,ss2)>0)and(Length(Chek)>Length(MaxS)) then
          MaxS:=Chek;

         dec(right);


      until(right-left<length(MaxS));

      inc(i);

   until (i>length(ss1));


   GetMaxStr:=MaxS;

End;




Begin

   clrscr;

   write('s1 = '); readln(s1);
   write('s2 = '); readln(s2);

   writeln;

   write('Результат : ');

   if length(s1)<length(s2) then
    writeln(GetMaxStr(s1,s2))
   else writeln(GetMaxStr(s2,s1));

   readln;

End.