Сформируйте и выведите на экран массив из девяти элементов, каждые три последовательных элемента которого составлены по следующемуправилу: 1-й равен удвоенному числу, введенному с клавиатуры; 2-й равен квадрату предыдущего индекса; 3-й равен остатку от деления индекса на 2
Uses crt; const n=9; var a:array[1..n] of integer; i,c:integer; begin; readln(c); i:=1; repeat a:=c*2; writeln(a); a[i+1]:=i*i; writeln(a[i+1]); a[i+2]:=(i+2) mod 2; writeln(a[i+2]); i:=i+3; until i=n; end.
