randomize;a:=random(100)+1;repeat b:=random(100)+1;until a>b;
Until (a>b) or (b mod a = 0)
Until (a>b) or (b mod a = 0);