Дано целое число N. (N<100), определяющее возраст человека (в годах). Определить подпрограмму, дающую для этого числа наименования "год", "года" или "лет": например 1 год, 23 года, 45 лет и т.д. - Pascal(Паскаль)

program let;

uses crt;

var
  n, x: integer;

begin
  clrscr;
  writeln('сколько вам лет?');
  readln(x);
  case x of
    1:
      writeln('год');
    2, 3, 4:
      writeln('года');
    5 .. 20, 30, 40, 50, 60, 70, 80, 90, 99:
      writeln('лет');

  end;

end.