Два игрока А и В бросают кубик N раз, суммируя результаты бросков. Напишите программу определяющую победителя после N бросков.

Var n, i, sum1, sum2, buf: integer;

begin

writeln ('Введите количество бросков');

readln (n);

sum1 : = 0;

sum2 : = 0;

i : = 0;

for i : = 1 to n do

begin

writeln ('Введите значения на кубиках после броска № - ', i, ' на кубике человека по имени А ');

readln (buf);

sum1 : = sum1 + buf;

end;

for i : = 1 to n do

begin

writeln ('Введите значения на кубиках после броска № - ', i, ' на кубике человека по имени B');

readln (buf);

sum2 : = sum2 + buf;

end;

if sum1 = sum2 then writeln ('Ничья') else

if sum1 > sum2 then writeln ('Победил человек по имени А')

else writeln ('Победил человек по имени B');

end.

Как то так ...