function DeclensionNouns(n: int64; count1, count234, count5: string): string;
begin
Result:=IntToStr(n)+' '+count5;
if n mod 10=1 then
Result:=IntToStr(n)+' '+count1;
if (n mod 10>=2) and (n mod 10<=4) then
Result:=IntToStr(n)+' '+count234;
if (n mod 100>=11) and (n mod 100<=14) then
Result:=IntToStr(n)+' '+count5;
end;
где:
n – число (количество чего-либо);count1 – существительное в единственном числе;count234, count5 – существительные во множественном числе.
Например,
DeclensionNouns(3, 'копейка', 'копейки', 'копеек')
выведет '3 копейки'.
| 
