Function 03 PASCAL

Program Fun03 ;
var
 n1,n2:integer;

function soma(n1,n2:integer):integer;
var
adicao_a,adicao_b:integer;
res_final:integer;
i:integer;
 Begin
  for i := n1 downto 1 do
   Begin
     adicao_a:= adicao_a + i;
   End;
  for i := n2 downto 1 do
   Begin
     adicao_b:= adicao_b + i;
   End;
  res_final:= adicao_a+adicao_b;
  soma:=res_final;
 End;


 Begin
  Write('Informe 1 Valor: ');
  readln(n1);
  Write('Informe 2 Valor: ');
  readln(n2);
   Writeln('Resultado: ',soma(n1,n2));
   Writeln('            by Marcus Vinicius');
 End.