Untitled

 avatar
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...