TYPE
 T=Array[1..1] of Real;
VAR
 A:^T;
 i,N:Byte;
 Sum:Real;
BEGIN
 {$R-}
 Write('N= ');
 ReadLn(N);
 GetMem(A, SizeOf(Real)*N);
 Randomize;
 Sum:=0;
 For i:=1 to N do
  begin
   A^[i]:=Random*100-50;
   Write(A^[i]:8:3);
   Sum:=Sum+A^[i];
  end;
 Writeln;
 Writeln;
 WriteLn('Sum= ',Sum:10:3);
 FreeMem(A, SizeOf(Real)*N);
 ReadLn;
END.