Напишите программу которая в последовательности натуральных чисел определяет сумму всех чисел

Program arra;
const m=20;
var
B: Array[1..m] Of Integer;
i,j,k:integer;
BEGIN
randomize;
for i:=1 to m do begin 
B[i]:= random(101); 
end;  

write('Массив до сортировки: ');
 for i:=1 to m do begin
 write(B[i]); 
write(' '); 
end; 
writeln;
for i := 1 to m-1 do       
for j := 1 to m-i do       
    if B[j] < B[j+1] then begin     
           k := B[j];           
    B[j] := B[j+1];         
      B[j+1] := k       
    end;         
  write('Массив после сортировки: ');     
      for i:=1 to m do begin 
write(B[i]);
 write(' '); 
end; 
end.

PascalABC.Net
var
  a,d,x,z:real;
begin
  a:=1.2; d:=3.8; x:=-2;
  while x<=2 do begin
    if abs(x)>=0.0001 then begin { вот так приходится обходить нули! }
      if x>0.4 then z:=exp(sqrt(x+1))
      else z:=cos(a*x)/sin(a*x)+sin(d*x);
      Writeln('x=',x:7:4,', Z=',z:7:4)
    end
    else Writeln('Функция не определена для x=0');
    x:=x+0.4
  end
end.

Результат выполнения программы
x=-2.0000, Z= 0.1238
x=-1.6000, Z= 0.5659
x=-1.2000, Z= 0.8569
x=-0.8000, Z=-0.8015
x=-0.4000, Z=-2.9195
Функция не определена для x=0
x= 0.4000, Z= 2.9195
x= 0.8000, Z= 3.8253
x= 1.2000, Z= 4.4072
x= 1.6000, Z= 5.0151
x= 2.0000, Z= 5.6522