На самом деле, если тв проанализируешь все варианты, тог ты увидишь, что кол-во вариантов не так и велико.
1 утка
2-4 утки
5-20 уток
21 утка
22-24 утки
25-30 уток
31 утка
32-34 утки
35-40 уток
и т.д.
на самом деле у тебя получается:
Код:
If ((N mod 10) = 1) And (N <> 11)
Then Result := 'утка'
Else
If ((N mod 10) In [2..4]) And (Not (N In [12,13,14]))
Then Result := 'утки'
Else Result := 'уток';
как-то так.