Игра в "Кости". Выбрасывается 2 числа. Если они совпали - вы победили. (Паскаль)

Var A, B:integer;

Begin

Write ('Чтобы бросить кости нажмите Enter');

ReadLn;

Repeat

A:=random (6) + 1;

B:=random (6) + 1;

WriteLn (A,' ', B);

WriteLn ('Попробуете ещё раз?');

WriteLn ('1 - повторить, 0 - выйти');

ReadLn (A);

Until (A=0) or (A=B);

if A=B then WriteLn ('Вы победили!')

else WriteLn ('Вы проиграли!');

End.