Выкладываю первую задачу, сейчас решу вторую и ее тоже выложу.
P.S: Выложил вторую
<span>X1 = [4 3 2 1 5]
</span><span>X2 = [6 5 4 3 7]
</span><span>X[5] = 7
========================</span>
Сам подумай,или начерти на листочке и все поймешь!
program d1;
var x,v,b,n,d,q:integer
begin
x:=A*A;
v:=x*x*A;
b:=v*v*v*x;
writeln(x);
writeln(v);
writeln(b);
end.
Тем что в книге какая-то определённая информация, а в компьютере любая, которую захочешь найти