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

program c16;
var n:20..69;
begin
repeat
write('vvedite vozrast');
readln(n);
until n in[20..69]
case n of
21,31,41,51,61 : writeln('god');
22,23,24,32,33,34,42,43,44,52,53,54,62,63,63 : writeln('goda');
else writeln('let')
end;
readln;
end.

program c16;
var n:20..69;
begin
repeat
write('vvedite vozrast');
readln(n);
until n in[20..69]
case n mod 10 of
  0,5,6,7,8,9:writeln(n,' лет');
  2,3,4:writeln(n,' года');
  1:writeln(n,' год');
  end;
readln;
end.

program c16;
var n:20..69;
begin
repeat
write('vvedite vozrast');
readln(n);
until n in[20..69]
case n mod 10 of
  1:writeln(n,' год');
  2,3,4:writeln(n,' года');
  else writeln(n,' лет');
  end;
readln;
end.