pascal题目用一张一元票换1分,2分和5分的硬币,每种至少一枚, 问有哪几种换法。 求详细解法

用循环
var
a,b,c,d:real;
begin
a:=1;
for b:=1 to 100 do
for c:=1 to 50 do
for d:=1 to 20 do
if ((0.01*b+0.02*c+0.05*d)=1) then
writeln(b,'',c,'',d);
readln;
end.