Помогите пожалуйста решить задачу, на ветке сидело n ворон, вывести эту фразу в…

По введенному натуральному числу n (n <= 100) обозначаешему количество ворон вывести надпись, на дереве n ворон. Где ворона склоняеться соответсвено n: 'ворон'.'ворона"вороны' в случаем n превышаюшего 100 вывести надпись 'ветка обламилась' uses crt; var n: integer; beginclrscr; repeatwrite ('Введите число от 1 до 100 N='); readln (n); until n>0; case n of11… 14: write ('сидело ',n,' ворон'); 1… 10,15… 100: case n mod 10 of 1: write ('На дереве сидела ',n,' ворона'); 2… 4: write ('На дереве сидели ',n,' вороны'); 0,5… 9: write ('На дереве сидело ',n,' ворон'); endelse write ('Ветка обломилась! '); end; readln; end.