jzxx1294购买文具

题目描述
　 新学年就要开始了，爸爸把N元钱给了小青，让他购买一批文具，并作了以下要求：只能买圆珠笔、铅笔和铅笔芯，并且每样至少买一支，总数要超过30支，而且钱要全部花完。 　　
　 当小青去到文具店时，发现圆珠笔8角钱一支、铅笔2角钱一支、铅笔芯1角钱一支。小青怎么买才能符合爸爸的要求呢？请你编个程序帮他算出符合购买要求的所有方案总数。

输入
一个整数N，表示购买文具一共的元数。（1 <= N <= 50）

输出
一个整数，即符合购买要求的所有方案总数。

样例输入
8
样例输出
135

满分代码：
var i,j,t,s,n:longint;
begin
readln(n);
n:=n*10-2-8-1;
for i:=0 to n div 8 do
for j:=0 to n div 2 do
begin
t:=n-i*8-j*2;
if (t>=0)and(t+i+j>27) then inc(s);
end;
writeln(s);
end.