Одна деталь вызывает недоумение. Напишите программу, которая вводит возраст человека (целое число, не превышающее 120) и выводит этот возраст со словом "год" "года" или "лет". Например "21 год" "22 года" "25 лет"  PascalABC.NET

Var
   A:integer;
Begin
WriteLn('Введи возраст');
Read(A);
if (A>9)and(A<20) then WriteLn(A,' Лет')
else
Case A mod 10 of
1:Write(A,' Год ');
2..4:Write(A,' Года ');
0,5..9:Write(A,' Лет ');
End
End.