var
i: integer;
sum40, sumdi: longint;
begin
sum40 := 0;
sumdi := 0;
while true do
begin
read(i);
if i = 0 then break;
if i > 40 then sum40 := sum40 + 1;
if (i>=10) and (i<=99) then sumdi := sumdi + 1;
end;
writeln('Больше 40: ', sum40);
writeln('Две цифры: ', sumdi);
end.
