1) A*(A+B+C) 2) A+A*B+A*C
3) A*B+НеB+НеА*В
4)(неА+В)*неС*(С+А*неВ) 5)неА*неС+А*В+неА*С+А*неВ
6)А*(неВ*неС+В*С)+А*(В*НеС+НеВ*С)

У этой задачи есть более простой решения:
заметим,что мы складываам подрят идущие нечетные числа,при этом разность между двумя соседними числами будет 2...Тогда
P = 1 + 3 + 5 + 7 + (2n - 1) - сумма членов арифметической прогрессии...
Тогда P = (первый член + последний член)/2 × колво членовЗная,чтро первый член будет 1,а последний 2n - 1, и колво этих членов = n,то Р = (1 + 2n - 1)/2×n=2n/2×n = n^2
значит сумма первых n членов данной прогрессии будет равна n^2

программа:
var n: integer;
begin
readln(n);
writeln(n*n);
end.

если уж делать эту же программу через цикл while,то:
var n,P,t: integer;
begin
readln(n);
t = 1;
P = 0;
while (t < 2*n - 1) do
begin
P = P + t;
t = t + 2;
end;
writeln(P);
end.

const N=20;

var R:array[1..N] of integer;

i,a,b,c,s:integer;

begin

a:=0;

b:=0;

for i:=1 to N do  

 begin

  R[i]:=random(N)-random(N);

  write(R[i]:3,'[',i,']');

 end;

writeln;

for i:=1 to N do

 begin

  if a<1 then

   begin

    if R[i]<0 then  

     begin

     b:=i;

     a:=a+1;

     end;

   end;

  end;

a:=0;

c:=0;

 for i:=N downto 1 do

  begin

   if a<1 then

    begin

     if R[i]<0 then

      begin

      c:=i;

      a:=a+1;

      end;

    end;

   end;

s:=0;

 for i:=1 to N do  

   s:=s+R[i];

writeln('Номер первого отрицательного элемента - ',b);

writeln('Номер последнего отрицательного элемента - ',c);

writeln('Сумма элементов в массиве - ',s);

end.