program LR6; {Павленко Максим 4646 Лабороторная работа №6}
const R=10;
Type Tind=1..R;
     Tmas = array [Tind] of Real;
var k, i, x, p:Tind;
    S, min: real;
    A:Tmas;
begin {$r+}

     Write('Введите число элементов не больше ',R,': ');
     readln(p);
     writeln('Введите ',p,'  целых чисел через пробел.');
     for i:=1 to p
     Do Read(A[i]);Readln;
     min:=A[1];
     k:= 1;
     for i:=2 to p
     Do if A[i]<min
        then begin
             min:=A[i];
             k:= i+1;
             end;
     S:= 0;
     for i:= k to p
     do S:= S+A[i];
        i:= k+1;
     writeln('S = ', S);
     Readln;
end.