Лифт с+

int n=CSpinEdit1->Value,
    m=CSpinEdit2->Value,N;
N=(m/4)-1;
if (m%4!=0)
  N++ ;
if (N>n)
  Label1->Caption="Этажа нет";
else
  {if (n%2==0)
    if (N==n)
      Label1->Caption=(String)N + " Спуститесь на этаж ниже";
    else
      Label1->Caption=(String)N + " Поднимитесь на этаж выше";
  else
    Label1->Caption=(String)(N+1) + " Ваша квартира на этом этаже";
    }

    int n = CSpinEdit1->Value;  //кол-во этажей
    int m = CSpinEdit2->Value;  //номер нужной квартиры
 
    int N = (m / 4);  //этаж, на котором располагается квартира
    if (m % 4)
        N++;
 
    if (N > n)
        Label1->Caption = "Этажа нет";  //а точнее нет такой квартиры )
    else
    {
        if (N % 2 == 0)  //если искомый этаж чётный (лифт не может остановиться)
            if (N == n)  //если этаж последний и подняться выше нелзья, останавливаемся под нужным этажом
                Label1->Caption = IntToStr(N - 1) + " Поднимитесь на этаж выше";
            else  //можем подняться на этаж выше нужного
                Label1->Caption=IntToStr(N + 1) + " Спуститесь на этаж ниже";
        else  //искомый этаж нечётный (лифт может остановиться на нём)
            Label1->Caption = IntToStr(N) + " Ваша квартира на этом этаже";
    }