C++ :

#include<iostream>
#define N 4
using namespace std;
int main()
{
    int i,j;
    int a[N];//存是否撒谎的状态，1表示真话，0表示谎话
    bool b[3];//存3个条件
    for (i=0;i<N;i++)
    {
        for (j=0;j<3;j++)
        {
            a[j]=(i>>j)&1;
        }
        b[0]=a[0]==a[1];
        b[1]=a[1]!=a[2];
        b[2]=a[2]==1&&(a[0]+a[1]+a[2]==0)||a[2]==0&&(a[0]+a[1]+a[2]!=0);
        if (b[0]&&b[1]&&b[2])
        {
            for (j=0;j<3;j++)
                cout<<a[j];
        }
    }
    return 0;	
}

Pascal :

program fiefo;
  var
    a:integer;
  begin
    a:=110;
    write(a);
  end.