Смоделировать выбор «наугад» двух костей домино из полного набора костей этой игры (0-0, 0-1,…, 6-6). и определить, можно ли приставить эти кости одна к другой в соответствии с правилами домино- Pascal(Паскаль)

uses crt;
var a,b,c,d:0..6;
    f:boolean;
begin
clrscr;
randomize;
a:=random(7);
b:=random(7);
c:=random(7);
d:=random(7);
writeln('Вы выбрали кости ',a,'-',b,' и ',c,'-',d);
f:=(a=c)or(a=d)or(b=d)or(b=c);
case f of
true:write('Можно приставить');
false:write('Нельзя приставить');
end;
readln
end.