Внебоскребе 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.