[Delphi] Правильное окончание слова

[Derol]

Товарисчи, помогите решить задачу, для образца:
Дано натуральное число n (0<= n <=100), определяющее возраст человека в годах. Программа должна вывести сообщение, согласованное с n, например (с правильным окончание слова "год"), 1 год, 23 года, 45 лет и т.д.

[Naeel Maqsudov]

Это всё уже тут где-то было.
Берем остаток от деления на 10 и на 100

N mod 10, N mod 100

И CASE по этим числам:

Код: Выделить всё

case N mod 100 of
  11..19 : S:='лет';
  else begin
    case N mod 10 of
      1: S:='год';
      2,3: S:='года';
      else S:='лет';  
    end;
  end;
end;