var
i, kol, ch: longint;
begin
kol := 0;
for i := 1 to 4 do
readln(ch);
if ch = 10 then inc(kol);
end;
writeln('ответ: ', kol);
end.
