В небоскребе n этажей и 1 подъезд, на каждом этаже по 3 квартиры, лифт…

Program Zadacha; Const k=3; Var n, e, rd, rm: Integer; BeginWrite ('n='); ReadLn (n); WriteLn ('Какой номер квартиры нужен человеку? '); ReadLn (e); rd: =e Div 3; rm: =e Mod 3; If rm > 0 Thenrd: =rd+1; If rd > n ThenWriteLn ('Такой квартиры не существует') ElseBeginIf rd Mod 2=0 ThenIf (rd+1) < n Thenrd: =rd+1Elserd: =rd — 1; WriteLn ('Лифт довезет человека на ', rd, ' поверх'); End; ReadLn; End.