Untitled
unknown
pascal
4 years ago
290 B
6
Indexable
uses crt,math; var n,m,ans1,ans2,i,a,b,s:longint; begin clrscr; readln(n,m); ans1:=m; ans2:=m; for i:=1 to n-2 do begin readln(a,b); ans1:=ans1+b; m:=m-a+b; ans2:=max(ans2,m); end; readln(s); ans2:=max(ans2,s); writeln(ans1); write(ans2); readln end.
Editor is loading...