Пожалуйста, помогите.прошу вас. завтра экзамен, боюсь завалить.Очень нужна ваша помощь!!!!!!Заранее говорю вам спасибо, и очень жду!

4-ое задание про "лет": program zd; var a:1..40; begin writeln('Введите количество лет'); readln(a); case a of 1,21,31: writeln('мне', a , 'год'); 5..20, 25..30, 35..40: writeln('мне', a, 'лет'); 2..4, 22..24, 32..34: writeln('мне',a, 'года'); end; end. Нашёл то, что было в тетрадке)