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

Я не особо силен в Pascal, так что вотprogram Something;var N: integer;beginwriteln('Введите номер квартиры ' );readln(N);if N mod 3 = 0 then beginwriteln(N div 3); endelse begin writeln((N div 3)+1 ); end;end.

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