begin repeat a1:=random(6)+1; a2:=random(6)+1; a3:=random(6)+1; a4:=random(6)+1; a5:=random(6)+1; a6:=random(6)+1; until условие; end;