绝对的完整的 经上机测试的 只用循环的程序  就是有点麻烦  
#include <iostream.h>
#include <math.h>
#include <iomanip.h>

int Evaluation(int a, int b)
{
    int cow = 1;
    cow *= 2;
    
    for (int j = 1; j <= b - a; j++)
    {
        cow++;
    }
    
    return cow;
}

void main()
{
    int i = 1, a;

    cin >> a;


    int b = 1, coww = 1, coww1 = 0;
    
    for (i = 1; i <= a;)
    {   
        if (4 <= i)
        {
            if (0 == i % 4)
            {
                coww = Evaluation(i,a);
                coww1 += coww;
                if ((0 == i % 4) && (i > 4))
                {
                    coww1 --;
                }
            }
            i++;            
        }    
        else
        {
            i++;
        }
        
    }
    
    cout << "The number is :" << coww1 << endl;
}

var
a1,a2,a3,a,xx,n:longint;
k,x:array[1..50]of longint;
begin
while not seekeof(Input) do
begin
n:=n+1;
readln(k[n]);
end;
for n:=1 to n do
begin
 a1:=1;
 a:=0;
 a2:=0;
 a3:=0;
 for xx:=1 to k[n]-1 do
begin
a:=a+a3;
a3:=a2;
a2:=a1;
a1:=a;
end;
x[n]:=a+a1+a2+a3;
end;
for n:=1 to n do
writeln(x[n]);
end.

楼上那一位，程序是不是这样的？
var
  x:array[1..4]of longint;
  t,n,i:longint;
begin
  readln(n);
  fillchar(x,sizeof(x),0);
  x[1]:=1;
  for i:=2 to n do
    begin
      t:=x[4];
      x[4]:=x[3]+x[4];
      x[3]:=x[2];
      x[2]:=x[1];
      x[1]:=t;
    end;
  writeln(x[1]+x[2]+x[3]+x[4]);
end.