var a:array[1..1000000] of longint;
i,s,x:longint;
begin
for i:=1 to 3 do
read(a[i]);
for i:=1 to 3 do
if (a[i]>=10) and (a[i]<=20) then begin inc(s);x:=x+a[i];end;
write(s,' ',x);
end.
/**************************************************************
	Problem: 1866
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/