Из элементов массива сформировать массив A той же размерности по правилу: эл-ты с 3-го по
12-ый находятся по формуле A[i]=-c[i]^2, все остальные находятся по формеле A[i]=c[i]-1
перепишите пожалуйста программу в си. Спасибо

for i:=1 to n do
begin
writeln ('заполняем ячейку массива номер ...',i);
readln (p[i]);

if (i>=3) and (i<=12) then A[i]:=-p[i]*p[i] else A[i]:=p[i]-1;

for i:=1 to n do
begin
writeln ('элемент нового масива номер...',a[i]);
end;

readln;
end.