PROGRAM Referat;

{$mode objfpc}{$H+}

USES
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

{$R *.res}

VAR
  Geld,EinsatzGesamt,EinsatzPairImpair:integer;
  Eingabe,PairImPair:string;

BEGIN
  Geld := 1250;
  //Zuvor wurden alle anderen Einsätze in EinsatzGesamt gespeichert, beispielhaft hier jetzt als konstant angesehen
  EinsatzGesamt := 500;
  //...
  write ('Moechten Sie auf die Pair/Impair setzen (J/N): ');
  readln (Eingabe);
  IF (Eingabe = 'J') THEN
  begin
    REPEAT
      write ('Setzen Sie auf PAIR oder IMPAIR: ');
      readln (PairImPair);
      IF (PairImPair <> 'PAIR') OR (PairImPair <> 'IMPAIR') THEN
      begin
    writeln ('Sie haben eine ungueltige Eingabe getaetigt!');
    readln (PairImPair);
      end;
    UNTIL (PairImPair = 'PAIR') OR (PairImPair = 'IMPAIR');

    REPEAT
      write ('Wie viel moechten Sie auf die Pair/Impair setzen: ');
      readln (EinsatzPairImpair);
      EinsatzGesamt := EinsatzGesamt + EinsatzPairImpair;
      IF (EinsatzGesamt > Geld) THEN
      begin
    writeln ('Sie haben eine ungueltige Eingabe getaetigt!');
    writeln ('Wiederholen Sie bitte den Vorgang.');
      end;
    UNTIL (EinsatzGesamt <= Geld)
  end;
  readln;
END.