Program Pasasm;

Uses Crt;

Const N = 9;

Type Tabelle = Array[0..N] Of Integer;

Var Liste                : Tabelle;
    Von, Bis, Max, Summe : Integer;
    I                    : Integer;

Function Swapsm (Var Fliste:Tabelle; Var Fmax:Integer; Fvon,Fbis:Integer) :
                 Integer; External;
(* --- Ver„nderung Anfang *)
{$L SWAPSM2}
(* --- Ver„nderung Ende *)

Procedure Druck (Var Fliste:Tabelle);
Var I : Integer;
Begin
  For I := 0 to N Do Write(Fliste[I]:6);
  Writeln;
End;

Begin
  For I := 0 To N Do Liste[I] := 10*I+10;
  Druck(Liste);
  Write('Von [0,',N,'] : '); Readln(Von);
  Write('Bis [0,',N,'] : '); Readln(Bis);
  Summe := Swapsm(Liste,Max,Von,Bis);
  Druck(Liste);
  Writeln('Summe   von ',von,' bis ',bis,' = ',summe:3);
  Writeln('Maximum von ',von,' bis ',bis,' = ',max:3);
End.