Записать в развёрнутой форме число 325 в 8 степени

ответ 2)                                

read (n);

i : = 1;

repeat

  writeln(i*i);

  i : = i + 1;

untill i*i > n

var a: array[1..20] of integer; s,i: integer; begin

s : = 0; for i : = 1 to 20 do begin a[i] : = random(40)-20; if a[i] > 0 thens : = s+a[i]; write(a[i]: 4); end; writeln; writeln(s); end.

разбиваем числа на триады (группы по 3 числа в каждой), и смотрим значение по таблице, получается:

1) 6224

2) 64472