Program lift;
Uses crt,soru;

Var liftesfiu,megy:boolean;
    liftsor:Tsor;
    ido:integer;
    kiaz:string;
    sorhossz,i,N,K:integer;

Begin
  Liftesfiu:=true;
  n:=3; k:=5;      {k-nak nem adtak ‚rt‚ket}
  megy:=false;
  ido:=0;
  liftsor.ures;
  sorhossz:=0;
  While liftesfiu do
     Begin
       Write('Be: Kiaz ');
       Readln(kiaz);
       If (kiaz<>'v‚ge') and (kiaz<>'senki') then
          Begin
            liftsor.sorba(kiaz);
            sorhossz:=sorhossz+1;
          End;
       if kiaz='v‚ge' then liftesfiu:=false;

       If (Sorhossz>=N) and not(megy) then
          Begin
            For i:=1 to n do
             Begin
               liftsor.sorbol(kiaz);
               Writeln(kiaz);          {besz lt}
             End;
            sorhossz:=sorhossz-n;
            megy:=true;
            ido:=0;
          End;
       ido:=ido+1;
       If (ido=k) then Begin            {Vissza‚rt a lift}
                        ido:=0;
                        megy:=false;
                       End;
     End;
     {akik a sorban maradnak, nem liftezhettek}



End.