В НЕБОСКРЕБЕ N ЭТАЖЕЙ М ВСЕГО ОДИН ПОДЬЕЗД; НА КАЖДОМ ЭТАЖЕ ПО 3 КВАРТИРЫ; ЛИФТ МОЖЕТ ОСТАНОВИТСЯ ТОЛЬКО НА НЕЧЕТНЫХ ЭЖТАЖАХ. ЧЕЛОВЕК САДИТСЯ В ЛИФТ И НАБИРАЕТ НОМЕР НУЖНОЙ ЕМУ КВАРТИРЫ M. НА КАКОЙ ЭТАЖ ДОЛЖЕН ДОСТВАИТЬ ЛИФТ ПОССАЖИРА НАПИШИТЕ ПРОГРАММУ ЯЗЫКОМ ПРОГРАММИРОВАНИЯ PASCAL

Const    flats_per_floor = 3;var    n, flat, floor: Integer;begin    Write('n = ');    ReadLn(n);    WriteLn('Какой номер квартиры нужен человеку?');    ReadLn(flat);        floor := (flat - 1) div flats_per_floor + 1;    if (floor > n) or (flat <= 0) then begin        writeln('Неверный номер квартиры');        exit;    end;        if (floor mod 2 = 1) then        writeln('Едем на ', floor, ' этаж')    else        writeln('Едем на ', floor - 1, ' этаж');end.