Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var n,i,a,b,c,minra,minrc,a1,b1,c1,minrb,x,y,z:integer;
- begin
- readln(n);
- readln(a,b,c);
- readln(x,y,z);
- a1:=max(a+x,max(b+x,c+x));
- b1:=max(a+y,max(b+y,c+y));
- c1:=max(a+z,max(b+z,c+z));
- a:=a1; b:=b1; c:=c1;
- if abs(x-y) mod 2<>0 then
- minra:=abs(x-y)
- else minra:=abs(x-y)+1;
- if abs(z-y) mod 2<>80 then
- minrc:=abs(z-y)
- else minrc:=abs(z-y)+1;
- for i:=3 to n do
- begin
- readln(x,y,z);
- if (abs(x-y)<minra) and (abs(x-y) mod 2 <> 0) then minra:=abs(x-y);
- if (abs(z-y)<minrc) and (abs(x-y) mod 2 <> 0) then minrc:=abs(z-y);
- a1:=max(a+x,b+x);
- b1:=max(a+y,max(b+y,c+y));
- c1:=max(b+z,c+z);
- a:=a1;
- b:=b1;
- c:=c1;
- end;
- minrb:=min(minra,minrc);
- if a mod 2<>0 then a:=a-minra;
- if b mod 2<>0 then b:=b-minrb;
- if c mod 2<>0 then c:=c-minrc;
- writeln(max(a,max(b,c)));
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement