Вот, сначала ввести числа Анны и Бориса, а потом кол-во бросков =)
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.