Определить количество 5,20 и 50 копеечных монет, необходимое для набора суммы 4 рубля

uses crt;
var a:array[1..20] of integer;
i,n,rub,ch:integer;
begin
randomize;
clrscr;
for i:=1 to 20 do begin
n:=random(3)+2;
if (i mod n=0)  then a[i]:=50
else
if i mod 5 =0 then a[i]:=5
else
a[i]:=20;
end;
rub:=0;ch:=0;
for i:=1 to 20 do
writeln('МОНЕТА  ' ,i,'  - ',a[i]);
for i:=1 to 20 do begin
rub:=rub+a[i];
if (rub<400)  then begin inc(ch); continue; end else
if rub=400 then begin inc(ch); break; end
else if rub>400 then continue;
end;
writeln('Количество монет необходимое для набора суммы 4 рубля -> ',ch);
readkey;
end.

uses crt;
var a,b:array[1..20] of integer;
i,n,rub,ch:integer;
begin
randomize;
clrscr;
for i:=1 to 20 do begin
n:=random(4)+3;
if (i mod n=0)  then a[i]:=20
else
if i mod 5 =0 then a[i]:=5
else
a[i]:=50;
end;
rub:=0;ch:=0;
for i:=1 to 20 do
writeln('МОНЕТА  ' ,i,'  - ',a[i]);
for i:=1 to 20 do begin
rub:=rub+a[i];
if (rub<400)  then begin inc(ch);b[i]:=i; continue; end else
if rub=400 then begin inc(ch);B[i]:=i; break; end
else if rub>400 then begin rub:=rub-a[i];end;  continue;
end;
if rub<400 then writeln('Среди монет нету тех которые дали бы в сумме 4 рубля ')else
begin
writeln('Использовали монеты ');
for i:=1 to 20 do
if b[i]<>0 then
write(b[i]:3);
writeln;
writeln('Количество монет необходимых для набора 4 рублей -> ',ch);
end;
readkey;
end.

Var a,b,c,i,j,z:integer;
begin
a:=400 div 5;
b:=400 div 20;
c:=400 div 50;
for i:=a downto 1 do
begin
for j:=b downto 1 do
begin
for z:=c downto 1 do
begin
if (i*5+j*20+z*50=400) and  (i+j+z<=20)
then break;
end;
if (i*5+j*20+z*50=400) and  (i+j+z<=20)
then break;
end;
if (i*5+j*20+z*50=400) and  (i+j+z<=20)
then break ;
end;
writeln('Êîëè÷åñòâî ìîíåò 5êîï = ',i,'  Êîëè÷åñòâî ìîíåò 20êîï = ',j,' Êîëè÷åñòâî ìîíåò 50êîï = ',z);
readln;
end.

Var a,b,c,i,j,z:integer;
begin
a:=400 div 5;
b:=400 div 20;
c:=400 div 50;
for i:=0 to a do
for j:=0 to b do
for z:=0 to c do
if (i*5+j*20+z*50=400) and  (i+j+z=20)then
writeln('5коп = ',i:2,'  20коп = ',j:2,' 50коп = ',z:2);
end.