program vaizdajuostes;
  const TR_ILG = 4;  { ilgesni— vaizdajuos‡i— trukm‚ }
        TR_TRU = 3;  { trumpesni— vaizdajuos‡i— trukm‚ }
        KAINA_ILG_LT = 10; { ilgesni— vaizdajuos‡i— kainos dalis litais }
        KAINA_ILG_CT = 90; { ilgesni— vaizdajuos‡i— kainos dalis centais }
        KAINA_TRU_LT = 9;  { trumpesni— vaizdajuos‡i— kainos dalis litais }
        KAINA_TRU_CT = 15; { trumpesni— vaizdajuos‡i— kainos dalis centais }

  var n,              { laid— skai‡ius }
      ilgos, trumpos, { reikaling— ilg— ir trump— vaizdajuos‡i— skai‡iai }
      litai, centai,  { kaina litais bei centais }
      likutis, i, val, min, val1, min1: integer;
begin
  readln (n);
  val := 0; min := 0;
  { skaitome duomenis ir iž karto sumuojame laid— trukmes minut‚mis }
  for i := 1 to n do
    begin
      readln (val1, min1);
      min := min + min1;
      val := val + val1 + min div 60;
      min := min mod 60
    end;
  { BENDRA TRUKM4 }
  WRITELN ('BENDRA TRUKME ', VAL, ':', MIN);

  { laid— trukmŠ suapvaliname iki valand— }
  if min <> 0
     then val := val + 1;
  WRITELN ('VALAND7 SKAICIUS: ', VAL);
  { randame reikaling— vaizdajuos‡i— kiekŤ }
  likutis := val mod TR_ILG;
  { apskai‡iuojame ilg— vaidajuos‡i— skai‡i— }
  ilgos := val div TR_ILG;
  case likutis of
    1: if ilgos >= 2
          then ilgos := ilgos - 2
          else ilgos := 0;
    2: if ilgos >= 1
          then ilgos := ilgos - 1;
  end;
  { apskai‡iuojame trump— vaizdajuos‡i— skai‡i— }
  if likutis = 0
     then trumpos := 0
     else if (val = 1) or (val = 2) or (likutis = 3)
             then trumpos := 1
             else if (val = 5) or (likutis = 2)
                     then trumpos := 2
                     else trumpos := 3;
  WRITELN ('ILGU IR TRUMPU VAIZDAJUOS2I7 SKAICIUS');
  writeln (ilgos, ' ', trumpos);
  { apskai‡iuojame reikaling… pinig— sum… }
  litai :=  KAINA_ILG_LT * ilgos + KAINA_TRU_LT * trumpos;
  centai := KAINA_ILG_CT * ilgos + KAINA_TRU_CT * trumpos;
  litai := litai + centai div 100;
  centai := centai mod 100;
  { spausdiname rezultat… }
  WRITELN ('KAINA');
  writeln (litai, ' lt. ', centai, ' cnt.');
end.