Поиск результатов по фразе "найдите 6-ой член последовательности a(i)=a(i-1)*a(i-1) 1 , если а(1)=5." (паскаль)

Var a: array [1..6] of integer; var i: integer; begin a[1]: =5; for i: =2 to 6 do a[i]: =a[i-1]*a[i-1]; writeln(a[i]); end. ответ -4223

Сдинамическим массивом: var       i: integer;       a: array of char; begin       assign(input, 'input.txt'); reset(input);       setlength(a, 1);       while (not eoln(input)) do begin             setlength(a, length(a)+1);             read(a[length(a)-1]); end;       for i : = 1 to length(a)-1 do         if (not odd(i)) then a[i] : = '-';       for i : = 1 to length(a)-1 do write(a[i]); end.

Const n=10;   var a,b: array[1..n] of integer; i,j,c: integer;   begin writeln('исходный массив: '); for i: =1 to n do   begin   a[i]: =random(51)-25;   write(a[i]: 4);   end; writeln; j: =0; for i: =1 to n do   begin   c: =abs(a[i]) mod 10;   if (c=3)or(c=7)or(c=9) then begin j: =j+1; b[j]: =a[i]; end;   end; writeln('полученный массив: '); for i: =1 to j do write(b[i]: 4); writeln; end. пример: исходный массив:   17   6   15 -23   19   -5 -12 -14   5   20 полученный массив:   17 -23   19