1:

Betrag := Betrag mod 50;

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

Program Muenzen(output);
var muenzwerte : array [1 .. 6] of Integer = (50, 20, 10, 5, 2, 1);
var intBetrag : Integer;
var muenznummer : SmallInt;
var Betrag : Double;

begin
  write('Betrag? ');
  readln(Betrag);
  intBetrag := Trunc(Betrag * 100.0); // umwandeln der Eingabe in Centwerte
  muenznummer := 1; // wir beginnen mit der ersten Muenze
  
  while(intBetrag > 0) do
  begin
    writeln('Muenze: ', muenzwerte[muenznummer], ' Anzahl: ', intBetrag div muenzwerte[muenznummer]);
    intBetrag := intBetrag mod muenzwerte[muenznummer];
    muenznummer := muenznummer + 1;
  end;
end.