Var
A,B:byte;
S:string;
Begin
Write('Кол-во Воробьёв, Синиц, Снигирей, Ворон = ');Read(A);
B:=B+A;
Read(A);
B:=B+A;
Read(A);
B:=B+A;
Read(A);
B:=B+A;

Case round(Power((B div 10) mod 10 -1,((B div 10) mod 10 -2)*((B div 10) mod 10 -3)*((B div 10) mod 10 -4)*((B div 10) mod 10 -5)*((B div 10) mod 10 -6)*((B div 10) mod 10 -7)*((B div 10) mod 10 -8)*((B div 10) mod 10 -9))*(B mod 10)) of
1:S:=' птица ';
2..4:S:=' птицы ';
0,5..9:S:=' птиц ';
else S:='';
End;
WriteLn(B,S)
End.