код:

---

 
 var 
  
 integer i; 
 integer max; 
 integer sum; 
 integer sum1; 
  
 integer a; 
  
 begin 
  
 sum = 0; 
 sum1 = 0; 
  
 for i:=1 to n do begin 
     readln(a); 
     if i = 1 then max := a; 
     if max < a  begin 
         max := a; 
         sum1 := sum; 
     end; 
     sum := sum+a; 
 end; 
  
 writeln(sum1); 
  
 end. 
 

---

код:

---

 
 var 
  
 integer i; 
 real max; 
 real sum; 
 real sum1; 
  
 real a; 
  
 begin 
  
 sum = 0; 
 sum1 = 0; 
  
 for i:=1 to n do begin 
     readln(a); 
     if i = 1 then max := a; 
     if max < a  begin 
         max := a; 
         sum1 := sum; 
     end; 
     sum := sum+a; 
 end; 
  
 writeln(sum1); 
  
 end. 
 

---