program VLALR13;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  vArr: array of Integer;
  i, sum, n: Integer;
begin
  Randomize;

  Write('Vvedite razmer massiva: ');
  ReadLn(n);
  SetLength(vArr, n);

  sum := 0;
  Write('Massiv: ');
  for i := 0 to High(vArr) do
  begin
    vArr[i] := Random(100);
    Write(vArr[i], ' ');
    sum := sum + vArr[i];
  end;

  WriteLn;
  WriteLn('Summa elementov massiva: ', sum);
  ReadLn;
end.