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

Var a,c:integer;
begin
writeln(введите номер квартиры);
readln(a);

if ( (a mod 3) 0) then c:=(a div 3)+1;
if ( (a mod 3) = 0) then c:=(a div 3);

if (c mod 2 0) then c:=c+1;
writeln(этаж на который привезёт человека ,c);
end.