Выдать возраст по русски "Вам ___ лет" (Задача в Паскале другим способом)

[dimanaprimer]

С клавиатуры вводится число от 1 до 100 .На экран должна выводиться надпись надпись :Мне ... лет/мне ... год/ мне ... года.


program ot1do100;
var k:integer;
begin
writeln('введите число от 1 до 100');
readln(k);
if k=1 then writeln('Мне ', k ,' год');
if (k>=2) and (k<=4) then writeln('мне ',k,' года');
if (k>=5) and (k<=20) then writeln('мне ',k,' лет');
end.

Получилось решить только таким способом. Как это можно сделать проще?

[VIK_aka_TOR]

case

case k of
    1, 21, 31, 41, 51, 61, 71, 81, 91 : writeln('Мне ', k ,' год');
    2..4, 22..24, и т.д. :  writeln('мне ',k,' года');
else 
    writeln('мне ',k,' лет');
end;

[Serge_Bliznykov]

ну, добавлю ещё один вариант,
на мой взгляд он проще:

(*
//Написать программу которая в зависимости от веденого с клавиатуры числа в
// соответствие с русским языком напечатает на экране фразу "Вам___лет".
// Например "Вам 20 лет" "Вам 31 год" "Вам 34 года"
*)

var b, c: integer;
begin
  Writeln('Введите ваш возраст');
  Readln(b);
  if b <= 0 then WriteLn('Вам 0 лет')
  else begin
    c := b mod 100;
    if (c >= 10) and (c <= 20) then WriteLn('Вам ', b, ' лет')
    else
      case (b mod 10) of
        1: WriteLn('Вам ', b, ' год');
        2..4: WriteLn('Вам ', b, ' года');
        5..9, 0: WriteLn('Вам ', b, ' лет')
      end;
  end;
  Writeln('Для выхода нажмите <Enter>');
  Readln;
end.