{ (c) 1998 CREEQ <creeq@web.de> }
program Lottozahlen_berechnen;

uses Crt;

var a,b,c,d,e,f : byte;
    ready       : boolean;

begin
  clrscr;
  writeln('Lottozahlen werden berechnet...');
  randomize;
  ready := false;
  while not ready do
  begin
    ready := true;
    a := random(54)+1;
    if a = 50 then a := 32;
    if a = 51 then a := 49;
    if a = 52 then a := 38;
    if a = 53 then a := 21;
    if a = 54 then a := 48;
    if a = 55 then a := 36;
    b := random(54)+1;
    if b = 50 then b := 32;
    if b = 51 then b := 49;
    if b = 52 then b := 38;
    if b = 53 then b := 21;
    if b = 54 then b := 48;
    if b = 55 then b := 36;
    c := random(54)+1;
    if c = 50 then c := 32;
    if c = 51 then c := 49;
    if c = 52 then c := 38;
    if c = 53 then c := 21;
    if c = 54 then c := 48;
    if c = 55 then c := 36;
    d := random(54)+1;
    if d = 50 then d := 32;
    if d = 51 then d := 49;
    if d = 52 then d := 38;
    if d = 53 then d := 21;
    if d = 54 then d := 48;
    if d = 55 then d := 36;
    e := random(54)+1;
    if e = 50 then e := 32;
    if e = 51 then e := 49;
    if e = 52 then e := 38;
    if e = 53 then e := 21;
    if e = 54 then e := 48;
    if e = 55 then e := 36;
    f := random(54)+1;
    if f = 50 then f := 32;
    if f = 51 then f := 49;
    if f = 52 then f := 38;
    if f = 53 then f := 21;
    if f = 54 then f := 48;
    if f = 55 then f := 36;
    if a = b then ready := false;
    if a = c then ready := false;
    if a = d then ready := false;
    if a = e then ready := false;
    if a = f then ready := false;
    if b = c then ready := false;
    if b = d then ready := false;
    if b = e then ready := false;
    if b = f then ready := false;
    if c = d then ready := false;
    if c = e then ready := false;
    if c = f then ready := false;
    if d = e then ready := false;
    if d = f then ready := false;
    if e = f then ready := false;
  end;
  write('Die errechneten Zahlen sind: ');
  writeln(a,' ',b,' ',c,' ',d,' ',e,' ',f);
  readkey;
end.