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

//PascalABC.NET//Версия 3.3, сборка 1634 (14.02.2018)begin   var a:=Arr(BigInteger(ReadInteger('x->'))); var sum:=BigInteger(a[0]);  for var i:=1 to ReadInteger('n->')-1 do begin a:=a+arr(sqr(a[i-1])); sum+=a[i]; end;  a.Println; sum.Println;end.Пример:x-> 4n-> 54 16 256 65536 42949672964295033108