* ожлнзы, ёхфъыг оа ёчйцсям, щжшл * ьдс сшуят кухийи п вьы тчкйь яутло * ьархзэя дизй л йдту хитй. Нужно разгодать письмо рассшифровать шифр что тут написано

Вот, сначала ввести числа Анны и Бориса, а потом  кол-во бросков =)

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.

Линейка нужна для изменения расстояния (между точками) с незначительной погрешностью.
Транспортир нужен для измерения градусной меры угла с незначительной погрешностью.
Термометр нужен для измерения температуры.
Барометр нужен для измерения атмосферного давления.
Компас нужен для ориентирования по магнитным полюсам Земли.
Телескоп нужен для того, чтобы увидеть отдалённые объекты.
Микроскоп нужен для того, чтобы увидеть незримые невооружённым глазом тела.
Абак нужен для упрощения счёта.
Детектор Гейгера нужен для измерения радиационного фона.
=)