pascal程序中，请问把一张一元钞票换成一分，二分，五分的硬币（每种各一枚），问哪几种？

var
max,i,j,k:longint;
begin
for i:=1 to 20 do
for j:=1 to 50 do
if 100-5*i-2*j>0 then
begin
inc(max);
writeln('1:',100-5*i-2*j,' 2:',j,' 5:',i);
end;
writeln('total:',max);
end.

问的是每种至少1枚吧。。。共461种

是编个程序吗?