помогите по информатике. паскал

1 вариант для Turbo Pascal (это скорее для института решение подойдет)
uses crt;
var a, k, i:integer;
c, B: set of byte;
begin
clrscr;
randomize;
b:=[8,15,16];
k:=1;
repeat
a:=random(21);
write (a:4);
if a in b then
begin
Exclude (b, a);
Include (c, k)
end;
inc (k);
until b=[ ];
writeln;
writeln;
for i:=1 to k do if i in c then write (i:4);
readln;
end.
Источник Вован Де Морт

2 вариант на Turbo Pascal (для школьников)
uses crt;
var chislo, k, i: integer;
a, b, c: integer;
begin
clrscr;
randomize;
a:=0;
b:=0;
c:=0;
k:=1;
repeat
chislo:=random (21);
write (chislo:4);
if chislo=8 then a:=k;
if chislo=15 then b:=k;
if chislo=16 then c:=k;
inc(k);
until a*b*c>0;
writeln;
writeln ('HOMEPA po poriadku =', a, ' ', b,' ', c);
readln;
end.

если я правильно понял
var a,i:integer;
begin
i:=0;
repeat
inc(i);
a:=random(21);
until (a=8) or (a=15) or (a=16);
writeln (a,' ',i);
end.

вот так еще можно создаем множество и при выпадении числа на генераторе, вычеркиваем его из множества пока множество не станет пустым, попутно пишем порядок выпадения кубика
var a,i:integer;
B: set of byte;
begin
b:=[8,15,16];
repeat
a:=random(21);
if a in b then
begin
writeln (a);
Exclude (b, a);
end;
until b=[];
end.

Пока все 3 числа не выпадут или пока не выпадет одно из 3-х?