זה מה שאני הצלחתי לעשות ואי לי מושג אייך להמשיך!
Program Tow;

var
dice1,dice2:integer;
count:integer;
max:integer;
i:integer;
begin
randomize;
count:=0;
While (dice1 mod dice2=0) or (dice1 mod dice 2=1) do
begin
dice1:=random(6)+1;
dice2:=random(6)+1;
count:=count+1;
end;
end.