Дано натуральное число N (0 < N 100) , определяющее возраст человека (в годах). Дать для этого числа наименования

Задача на исчисляемые существительные, решается путем анализа младшего разряда введенного числа.

program ex53;
Uses Crt;
var
n,i: integer;
BEGIN
ClrScr;
Write('Введите натуральное число N (1..100): ');
ReadLn(n);
i:=n mod 10; {возьмем последнюю цифру введенного числа}
case i of
1:
begin
if n=11 then writeln(n,' лет') else writeln(n,' год');
end;
2,3,4:
begin
if n in [12..14] then writeln(n,' лет') else writeln(n,' года');
end;
0,5..9:
writeln(n,' лет');
end;
ReadLn;
END.