pascal用枚举和子界类型写出100-200之间的素数

还有一道题，一个人有100元，他手上有。20元10元，5元，2元，1元，每个都有一张，请问有几种方案

---

无聊了 上来写点代码

var
i: array[0..4] of Integer;
k20,k10,k5,k2,k1,l,m: Integer;
begin
i[0] := 20;
i[1] := 10;
i[2] := 5;
i[3] := 2;
i[4] := 1;
WriteLn('20元,10元,5元,2元搏陪,1元');
l := 0;
m := 0;
for k20 := 1 to 4 do
for k10 := 1 to 7 do
for k5 := 1 to 13 do
for k2 := 1 to 32 do
for k1 := 1 to 63 do
if (k20 * i[0] + k10 * i[1] + k5 * i[2] + k2 * i[3] +
k1 * i[4] = 100) then begin
Inc(m);
if l = 5 then begin
l := 1;
Write(#13);
end else
Inc(l);
Write(k20);
Write(','冲简);
Write(k10);
Write(',');
Write(k5);
Write(',');
Write(k2);
Write(',');
Write(k1);
Write(#9);
end;
Write(#13'共有');
Write(m);
Write('种方法基判蠢'#13#10);
WriteLn(#13'按任意键退出');
ReadLn;
end.

---