Submission #3282202

Source Code Expand

var
a,b:array[1..100000] of longint;
i,j,c,d,e,b,n,m:longint;
begin
for i:=1 to 7 do
read(a[i]);
readln;
for i:=1 to 7 do
read(a[i]);
for i:=1 to 7 do
if a[i]>b[i] then s:=s+a[i]
else
s:=s+b[i];
write(s);
end.

Submission Info