Программа моделирует при помощи датчика случайных чисел бросание двух игральных костей до выпадения двух 6. выведите на экран число бросаний. АВС паскаль

Var a, b, k:integer;

begin;

randomize;

while ((a6) or (b6)) do

begin;

a:=random (1,6);

b:=random (1,6);

inc (k);

writeln (A,' и ', B,', бросок №', k);

end;

writeln ('Всего было сделано ', k,' бросков');

end.