Program lab10;
{Se cere un program care apeleaza o functie scrisa in limbaj de asamblare
care:
  - primeste un sir de integi pe 16 biti cu semn
  - tipaereste, pe rand, fiecare numar din sir; pentru aceasta va apela o
procedura scrisa in pascal
  - calculeaza si returneaza suma numerelor
Programul principal va tipari suma returnata de functie
}

Type tablou=array[0..200] of integer;

Function suma(var t:tablou; n:integer):integer;external;{$L suma.obj}

Procedure tipareste(v:integer);
  begin
    writeln(v);
  end;


Var i,n:integer;
  x:tablou;

Begin
  write('n=');
  readln(n);
  for i:=0 to n-1 do begin
    write('x[',i,']=');
    readln(x[i]);
  end;
  i:=suma(x,n);
  writeln('Suma=',i);
End.