Дано натуральное число n (n≤100), определяющее возраст человека (в годах). Дать для этого числа наименования «год», «года», «лет». Например, 1 год, 23 года, 46 лет и т.д. — Pascal(Паскаль)

program Project2;
var
n:integer;
begin
writeln('VVedite Znachenie n:');
readln(n);
case n of
1,21,31,41,51,61,71,81,91:writeln(' God ');
2,3,4,22,23,24,32,33,34,42,43,44,52,53,54,62,63,64,72,73,74,82,83,84,92,93,94:writeln(' Goda ');
5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,25,26,27,28,29,30,35,36,37,38,39,40,45,46,47,48,49,50,55,56,57,58,59,60,65,66,67,68,69,70,75,76,77,78,79,80,85,86,87,88,89,90,95,96,97,98,99,100:writeln(' Let ');
else
writeln(' StolbKo HE zhivut ');
end;
readln;
end.

program Project2;
var
n:integer;
begin
  writeln(' VVedite Znachenie: ');
  readln(n);
  if n<=100 then
  begin
    if n in [11..14] then write(' Let ') else
      case n mod 10 of
        1:writeln(' God ');
        2,3,4:writeln(' Goda ');
        0,5,6,7,8,9:writeln(' Let ');
      end;
  end
  else
    writeln(' StolbKo HE zhivut ');
  readln;
end.