program PascalGuru;
var S:array[1..13] of integer;
    i,n,summa:integer;
 
begin
 
writeln ('Vvedite elementy massiva S: ');
for i:=1 to 13 do begin
write ('S[',i,']='); readln (S[i]); end;
 
writeln ('Vot vvedennyi vami massiv S: ');
for i:=1 to 13 do write (S[i]:4,' ');
 
summa:=0;
for i:=2 to 13 do
if S[i]<S[i-1] then summa:=summa+S[i];
 
writeln;writeln('Summa: ',summa);
 
 
readln;
end.