В небоскрёбе n этажей и 1 подъезд,на каждом этаже по 3

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

Я не особо силен в Pascal, так что вот
program Something;
var N: integer;

begin
writeln('Введите номер квартиры ' );
readln(N);
if N mod 3 = 0 then begin
writeln(N div 3); end
else begin writeln((N div 3)+1 ); end;

end.