Комплексный вектор.

uses crt;
type
  Complex=Record
    Re, Im : Real
  end;
 
  function Rnd: Real;
  begin
    Rnd:=10*Random-5;
  end;
 
  function Len(x: Real): Integer;
  var
    l: Integer;
    p: LongInt;
  begin
    p:=Round(Abs(x));
    l:=1;
    while p div 10<>0 do
    begin
      Inc(l);
      p:=p div 10;
    end;
    Len:=l;
  end;
 
  procedure Print(c: Complex; q: Integer);
  var
    x: Real;
  begin
    Write('[');
    if c.Re<0 then Write('-');
    x:=Abs(c.Re);
    Write(x:Len(x):q);
    if c.Im>=0 then Write('+')
    else Write('-');
    x:=Abs(c.Im);
    Write('j', x:Len(x):q, '] ');
  end;
 
  procedure Add(var s: Complex; c1, c2: Complex);
  begin
    s.Re:=c1.Re+c2.Re;
    s.Im:=c1.Im+c2.Im;
  end;
 
  procedure Mul(var p: Complex; c1, c2: Complex);
  begin
    p.Re:=c1.Re*c2.Re-c1.Im*c2.Im;
    p.Im:=c1.Im*c2.Re+c1.Re*c2.Im;
  end;
 
const
  n=5;
var
  C: Array[1..n] of Complex;
  p, s: Complex;
  i: Integer;
begin
  ClrScr;
  Randomize;
  Writeln('Исходный вектор:');
  for i:=1 to n do
  begin
    C[i].Re:=Rnd;
    C[i].Im:=Rnd;
    Print(C[i], 2);
  end;
  Writeln;
  s:=C[1];
  p:=s;
  for i:=2 to n do
  begin
    Add(s, s, C[i]);
    Mul(p, p, s);
  end;
  Write('p=');
  Print(p, 2);
  Writeln;
  Readkey;
end.