При установлении подлинности с нулевым разглашением претендент согласно протоколу фиата-шамира при p = 431, q = 217 может выбрать значение r ?

Для того чтобы узнать какое число стоит на 301 месте введем следующие обозначения: А = 0,  Е  = 1, У = 2. Тогда получим:
1) 000000, (0)
2) 000001, (1)
3) 000002, (2)
4) 000010, (3)
...
301) ... (300)
а это получаются числа записанные в троичной системе счисления.
На 301 месте будет стоять число равное в десятичной системе 300
Переведем число 300 из десятичной системы в троичную, получим:
300 : 3 = 100 - остаток 0
100 : 3 = 33 - остаток 1
33 : 3 = 11 - остаток 0
11 : 3 = 3 - остаток 2
3 : 3 = 1 - остаток 0
1 : 3 = 0 - остаток 1
т.е. получаем число 102010 в троичной системе счисления.
Подставив обратно наши буквы получим ответ: ЕАУАУА.

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var a,i,min,max,n:integer;
begin
  write('Введите количество чисел ');
  readln(n);
  min:=MaxInt; //считаем, что мимнимальное - самое большое целое
  max:=-MaxInt;//считаем, что максимальное - самое маленькое целое
  for i:=1 to n do begin
    readln(a);
    if a>max then max:=a;
    if a<min then min:=a;
  end;
  writeln('Максимальное: ',max,'  минимальное: ',min);
end.

Тестовое решение:
Введите количество чисел 5
23
12
44
10
15
Максимальное: 44  минимальное: 10