N/BODEN/BODEN
UAL->DEC(2) BEI 'E' ENDE");READLN;READ(MODUS);
         IF MODUS="1" THEN BEGIN WRITE("ZAHL");READLN;READ(ZAHL);DECDUAL(ZAHL);END
            ELSE IF MODUS="2" THEN BEGIN EINGABE(REGISTER);DUALDEC(REGISTER);END;
  WRITELN;
  UNTIL  MODUS="E";
END.
PROGRAM LOTTO(OUT);
TYPE FELD=ARRAY [1..49] OF INTEGER;
VAR I:INTEGER;ZAHL:FELD;

PROCEDURE TAUSCH(VAR O,P:INTEGER);
VAR Q:INTEGER;
BEGIN
   Q:=P;P:=O;O:=Q;
END;

FUNCTION ZUFALL(A,B:INTEGER):INTEGER;
VAR ZUFALL:INTEGER;
BEGIN
   ZUFALL:=TRUNC(RANDOM*(B-A+1))+A
END;

BEGIN
FOR I:=1 TO 49 DO FELD[I]:=I;
FOR I:=1 TO 6 DO BEGIN
     ZAHL[I]:=ZUFALL(I,49);
     IF Z