Var
A,B,C,D:byte;
S:string;
Begin
Write('Кол-во Воробьёв, Синиц, Снигирей, Ворон = ');
Read(A);
Read(B);
Read(C);
Read(D);
A:=A+B+C+D;
if (A>10)and(A<21) then S:=' птиц'
else
Case A mod 10 of
1:S:=' птица ';
2..4:S:=' птицы ';
0,5..9:S:=' птиц ';
else S:='';
End;
WriteLn(A,S)
End.