Два игрока A и B бросают кубик и суммируют результаты бросков. Победителем объявляется игрок, набравший первым объявленную сумму очков S. Напишите программу, определяющую победителя

Var A, B:byte;

S, Sa, Sb:integer;

Begin

WriteLn ('S = '); ReadLn (S);

Repeat

Write ('A = '); ReadLn (A);

Sa:=Sa+A;

Write ('B = '); ReadLn (B);

Sb:=Sb+B;

Until (Sa>=S) or (Sb>=S);

if (A>B) then WriteLn ('Победил игрок A')

else WriteLn ('Победил игрок B')

End.