Игра в "Кости". Выбрасывается 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.