program lab_6;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  n=40;

type
   Tar=array[0..n]of Integer;
var
  A:Tar;

function Sum(Ar:array of Integer; const n_:Integer):Integer;
var i:integer;
begin
  result:=0;
  for i:=0 to n_ do
    result:=result+ar[i];
end;

procedure fillarray(var Ar; n_:Integer);
var i:Integer;
begin
  Randomize;
  for i:=0 to n_ do
    Tar(Ar)[i]:=Random(n_);
end;

procedure PrintArray(const Ar; const n_:byte);
var i:Integer;
    TA:array[0..100]of Integer absolute Ar;
begin
  Writeln('Array:',#13#10);
  for i:=0 to n_ do
    Writeln(TA[i]);
end;


begin
  fillarray(A,n);
  PrintArray(A,n);
  Writeln('Sum= ',sum(A,n));
  readln;
end.