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

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.