В небоскребе N этажей и всего один подъезд; на каждом этаже

program Lift;
var
a,kv,et:integer;
begin
writeln(Vvedite nomer kvartiry);
readln(a);
kv:=0;
et:=0;
while kvlt;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 mlt;=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.