program kortu_kalades;
  { 73 u‘davinys, antrasis sprendimas }
{----------------------------------------------------------}
  const N     = 24;   { kort— skai‡ius kalad‚je }
  type kalade = string [2 * N];
  function kalades (k1, k2 : kalade) : integer;
    var pirma,              { pirma 2-osios kalad‚s korta }
        k1_prad, k1_pab,    { 1-oji kalad‚, ižskaidyta  dvi dalis }
        perkelta : string;  { perkelta 1-oji kalad‚ }
        vieta    : integer; { pirmos 2-osios kalad‚s kortos vieta }
                            { 1-mojoje kalad‚je }
  begin
    if k1 = k2              { kalad‚s sutampa }
       then kalades := 0
       else begin
              pirma := k2[1] + k2[2];   { imame pirm…j… korta }
              { randame jos viet… 1-ojoje kalad‚je }
              vieta := pos (pirma, k1);
              k1_prad := copy (k1, 1, vieta - 1);
              k1_pab := copy (k1, vieta, 2 * N - vieta + 1);
              { perkeliame pirm…j… kaladŠ }
              perkelta := k1_pab + k1_prad;
              if k2 = perkelta
                 then kalades := 1
                 else kalades := -1
            end;
  end;
{----------------------------------------------------------}
  var  f          : text;
       v          : string;
       kal1, kal2 : string;
begin
  write ('­veskite pradini— duomen— bylos vard…: ');
  readln (v);
  assign (f, v);
  reset (f);
  readln (f, kal1);
  while pos (' ', kal1) <> 0 do
    delete (kal1, pos (' ', kal1), 1);
  readln (f, kal2);
  while pos (' ', kal2) <> 0 do
    delete (kal2, pos (' ', kal2), 1);
  close (f);
  writeln (kalades (kal1, kal2))
end.


