На какой этаж должен доставить лифт пассажира - Turbo Pascal

Формулировка задачи:

1)В небоскребе N этажей и всего один подъезд; на каждом этаже по 3 квартиры; лифт может останавливаться только на нечетных этажах. Человек садится в лифт и набирает номер нужной ему квартиры M . На какой этаж должен доставить лифт пассажира?(пассажир при необходимости может спуститься на этаж вниз) 2)Дата некоторого дня определяется тремя натуральными числами: g (год), m (порядковый номер месяца) и n (число). По заданным g, n и m определить: дату предыдущего дня; дату следующего дня.рассмотреть 2 случая, когда год является и не является високосны ps: помогите плиз, очень надо получить зачет.

Решение задачи: «На какой этаж должен доставить лифт пассажира»

textual
                            Листинг программы 
                        

                            uses crt;
var n,m,e:byte;
begin
clrscr;
write('Количество этажей=');
readln(n);
repeat
write('Номер квартиры:');
readln(m);
until m<=3*n;
e:=(m+2) div 3;
if (e=n)and(n mod 2=0)then e:=e-1
else if e mod 2=0 then e:=e+1;
write('Этаж=',e);
readln
end.
                        