В НЕБОСКРЕБЕ N ЭТАЖЕЙ М ВСЕГО ОДИН ПОДЬЕЗД; НА КАЖДОМ ЭТАЖЕ

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 gt; n) or (flat lt;= 0) then begin        writeln('Неправильный номер квартиры');        exit;    end;        if (floor mod 2 = 1) then        writeln('Едем на ', floor, ' этаж')    else        writeln('Едем на ', floor - 1, ' этаж');end.