const
  N = 5; {Razmer}

var
  a: array[1..N] of integer;
  i, sum: integer;
  
begin
  {Zapolnenie massiva}
  for i := 1 to N do a[i] := random(100);
  
  sum := 0;
  
  {Vicheslenie symmi}
  for i := 1 to N do sum := sum + a[i];
  
  {Vivod massiva i symmi}
  for i := 1 to N do write(a[i], ' ');
  writeln;
  write('Sum = ', sum);
end.