В небоскрёбе 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.