В небоскрёбе n этажей и 1 подъезд,на каждом этаже по 3 квартиры,лифт останавливается только на не чётных этажах .Человек садится в лифт и нажимает номер нужной ему квартиры.На какой этаж дома довезёт лифт человека.
(в паскале) плиззз помогите срочно надо

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.