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

program Lift;
var
a,kv,et:integer;
begin
writeln('Vvedite nomer kvartiry');
readln(a);
kv:=0;
et:=0;
while kv<a do
begin
kv:=kv+3;
et:=et+1;
end;
if (et mod 2)=0 then et:=et-1;
writeln('Na ',et, ' etage');
readln
end.

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.