Вот, сначала ввести числа Анны и Бориса, а потом кол-во бросков =)
var x, a, b, k, i, wa, wb: integer; begin readln(a, b); readln(k); for i := 1 to k do begin x := random(5) + 1; writeln(x); if ((abs(a - x) > abs(b - x))) then wa := wa + 1; if ((abs(a - x) < abs(b - x))) then wb := wb + 1; end; if (wa > wb) then writeln('Ann win!') else if (wb > wa) then writeln('Boris win!') else writeln('No win;)'); writeln(wa, ' - ', wb); end.
var x, a, b, k, i, wa, wb: integer;
begin
readln(a, b);
readln(k);
for i := 1 to k do
begin
x := random(5) + 1;
writeln(x);
if ((abs(a - x) > abs(b - x))) then wa := wa + 1;
if ((abs(a - x) < abs(b - x))) then wb := wb + 1;
end;
if (wa > wb) then writeln('Ann win!')
else
if (wb > wa) then writeln('Boris win!')
else
writeln('No win;)');
writeln(wa, ' - ', wb);
end.