program abc;
uses crt;
const n=10;
type massiv=array[0..n] of integer;
var a:massiv;
    min,max,i,i1,i2,sum:integer;
begin

for i:=1 to n do
a[i]:=random(10);

for i:=1 to n do
write(a[i],' ');

min:=a[1];

for i:=1 to n do
if min>a[i] then begin
min:=a[i];
i1:=i;
end;

max:=a[i1];

for i:=i1 to n do
if max<a[i] then begin
max:=a[i];
i2:=i;
end;

for i:=i1 to i2 do
sum:=sum+a[i];
writeln('Summa ot ',min,' do ',max,' = ',sum);
end.