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
                                    ***
                                  *...*
                                  *.....** 
                                 *........****
                                *....***......*******
                               *...**   ****.....**
                              *....*        *****
          *.*                *....*           *