//PASCAL ABC.NET
var i, a: integer; arr: array [1..10] of integer;
begin for i := 1 to 10 do read(arr[i]); for i := 1 to 10 do begin if arr[i] mod 6 = 0 then a += arr[i]; end; Write(a/10);end.
a=int(input())
b=int(input())
if (a<0 and b<0) and a>b:
a*=2
b*=2
else:
a+=2
b+=2
print(a,b)
Program summa;
uses crt;
const N =10;
var B:array[1..N] of integer;
s,i : integer;
begin
s:=0;
for i:=1 to N do
begin
write( 'B[ ' ,i, ']= ' ); readln(B[i]);
s:=s+B[i];
end;
writeln( 's=' ,s);
end.