Как сделать, чтобы при нажатии на кнопку открывался рандомный сайт из списка. html

program first; var i,a,b: integer; begin  cls;   read(a,b,i);   if a< 0 then write(sqr(a));

  if b< 0 then write(sqr(b));

  if i< 0 then write(sqr(i))end.

на вход "черного ящика"подается число 125. о чем в этом случае говорит отказ: кажеться а

2, 3, 6, 18, 108

каждый член последовательности начиная с третьего равен произведению двух предыдущих:

2 * 3 = 6

3 * 6 = 18

6 * 18 = 108