Дано целое число в диапазоне 20–69, определяющее возраст (в годах). Вывести строку-описание указанного возраста, обеспечив правильное согласование числа со словом «год»

например: 20 — «двадцать лет», 32 — «тридцать два года», 41 — «сорок один год»

Program Case16;
Var
Year:Byte;
Begin
WriteLn('Введите возраст: ');
ReadLn(Year);
Case Year Mod 10 Of
5,6,7,8,9,0:WriteLn(Year,' лет');
1:WriteLn(Year,' год');
2,3,4:WriteLn(Year,' годa');
End;
End.

автор: Sklyarov Sergej a.k.a. S9