[Row]

Код:

var e,m:integer;

begin
     writeln('vvedite kvartiry');
     readln(m);
     e:=m div 3;
     if (m mod 3)<>0 then e:=e+1;
     if ((e mod 2)=0) then begin e:=e+1;
                           writeln(e); end
                      else writeln(e);
                      readln;
end.

e - номер этажа
м - номер квартиры
получается если квартира на четном этаже, например 8, тогда лифт подвезет тебя на 9 этаж))
короче поднимет выше, чтобы потом спуститься))