Дано натуральное число n(n< =100), определяющее в годах возраст человека. составить программу, по которой на экран монитора выводится это число с наименованием «год», «года» или «лет».

Было занятно сделать все это в виде одного // pascalabc.net 3.2, сборка 1439 от 09.05.2017 // внимание! если программа не работает, обновите версию! begin   readlnstring('-> ').towords(arr(',','.'))           .select(w-> w.where(c-> pos(c,'аеёиоуыэюя')> 0).groupby(x-> x)           .select(x-> (x.key,x.(x-> x[1]> (x-> x.count> 0)           .selectmany(x-> x).select(x-> x.item1).distinct.orderby(x-> x)           .println(',') end. пример -> дает,корова,молоко,,животное,жираф,катамаран. а,е,о

Program odinakov; var i, it, il: integer; t: boolean; begin  for i: =1 to 255 do  begin t: =true; it: =i;     il: =i mod 10;     while it < > 0 do    begin      if it mod 10 < > il then        begin          t: =false;         break;       end;       it: =it div 10;     end;     if t then writeln(i);   end; end.