Zerlegen von Geldbeträgen in die kleinste Münzanzahl

const p:array[0..7]of integer=( 500, 200, 100, 50, 10, 5, 2, 1);
var   a:array[0..7]of longint;
      e:longint;
      z:byte;
begin
 write('Gib Betrag in Pfennigen ein! ');read(e);
 for z:=0 to 7 do begin
  a[z]:=e div p[z];
  e   :=e mod p[z];
  if(p[z]>50 )and(a[z]>0)then writeln(p[z] div 100:2,'DM =',a[z]:3,' mal');
  if(p[z]<100)and(a[z]>0)then writeln(p[z]        :2,'Pf =',a[z]:3,' mal');
 end;
end.   {************* Programmiert von Dave Sun 1995 **************}

Gib Betrag in Pfennigen ein! 54321
 5DM =108 mal
 2DM =  1 mal
 1DM =  1 mal
10Pf =  2 mal
 1Pf =  1 mal

Gib Betrag in Pfennigen ein! 33
10Pf =  3 mal
 2Pf =  1 mal
 1Pf =  1 mal