{Schreiben Sie ein Programm, das eine Assembler
Funktion aufruft, die:
  - bekommt eine Folge von, auf 16 Bits dargestellte, (vorzeichenbehaftete) 
    ganzen Zahlen 
  - zeigt jede Zahl der Folge nacheinander an, dafuer ruft eine Pascal
    Prozedur
  - rechnet die Summe der Zahlen aus und gibt es als Rueckgabewert 
    zurueck
(diese Assembler Funktion ist im Modul Summe.asm geschrieben)
Das Hauptprogramm zeigt den Rueckgabewert der Funktion an.
}

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

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

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


Var i,n:integer;
  x:Block;

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