Внебоскребе n этажей и всего один подъезд: на каждом этаже 3 квартиры; лифт может останавливаться только на нечетных этажах. человек садится в лифт и наби-рает номер нужной ему квартиры м. на какой этаж должен доставить лифт пассажира?

Const N = 10;
var a, k, e: integer;
begin
     readln(a);
     if (a > N) then
        writeln('Error')
     else
     begin
          while (k < a) do
          begin
               k := k + 3;
               e := e + 1;
          end;
          writeln(e);
     end;
end.

Вот и лифт =)