Известен первый элемент массива А: A[1]=6 .Создать массив , каждый элемент которого равен квадрату предыдущего индекса. Вывести полученный массив на экран, расположив каждый элемент отдельной строке

у вас опечатка в программе ..6-7 строчки begina[i]:=a[i-1]*a[i-1]; а должно быть begin a[i]:=a[i-1]*a[i-1];

ой точно)

Program Titan;var h,b,i:integer;a:array[-100..100] of integer;begina[0]:=6;for i:=1 to 3 do begina[i]:=a[i-1]*a[i-1];end;for i:=0 to 3 do beginwriteln(a[i]);end;end.