换硬币（pascal）

Question

2-22 把一张一元钞票换成一分，二分和五分的硬币，每种至少一枚，问有哪几种换法？2-22  把一张一元钞票换成一分，二分和五分的硬币，每种至少一枚，问有哪几种换法？

Answer 1

用一张一元票换1分、2分和5分的硬币，每种至少一枚， 问有几种换法. 的程序比我慢一丁点儿，而且在100-i*5中出错了，应是(100-i*5)div

Answer 2

var
max,i,j: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);
end;
writeln(max);
end.