f:array[0..9]of integer;

ff:array[0..2000]of integer;

n,i,j,s,max:integer;

function you(k:integer):integer;

var j:integer;

begin

j:=0;

while k>0 do

begin

j:=j+f[k mod 10];

k:=k div 10;

end;

you:=j;

end;

function can(x,y:integer):boolean;

var

z,sum:integer;

begin

z:=x+y;

sum:=ff[x]+ff[y]+ff[z];

if sum=n-4 then can:=true

else can:=false;

end;

begin

read(n);

s:=0;

ff[0]:=6;

f[0]:=6;

f[1]:=2;

f[2]:=5;

f[3]:=5;

f[4]:=4;

f[5]:=5;

f[6]:=6;

f[7]:=3;

f[8]:=7;

f[9]:=6;

for i:=1 to 2000 do ff[i]:=you(i);

for i:=0 to 999 do

for j:=0 to 999 do

begin

if can(i,j) then

begin

inc(s);

end;

end;

writeln(s);

end.

在另一个网站上交竟然AC了。。。