Something

program coins;
var
   v,Min:Array[0..100] of Integer;
   n,i,j,s:Integer;

begin
 Write('Az ermek szama:');
 ReadLn(n);
 Write('Az osszeg:');
 ReadLn(s);
 WriteLn('Az ermek:');

 For i:=0 to n-1 do ReadLn(v[i]);

 for i:=1 to s do min[i]:=maxint;
 min[0]:=0;

 for i:=1 to S do
  for j:=0 to N-1 do
   if (v[j]<=i) and (min[i-v[j]]+1<=min[i]) then min[i]:=min[i-v[j]]+1;

 WriteLn(min[S],' erme szukseges.');
end.