На дереве сидело K ворон - Pascal ABC

Формулировка задачи:

На дереве сидело K ворон. Нужно сделать так чтобы при подстановке числа K было правильное окончание у слова "ворона". Я сделал это, но не могу понять как сделать правильно для чисел с 11 до 20.

program Vorona;
Var k:integer;
begin
readln(k);
case (k mod 10) of
 0 : writeln ('На дереве сидело ',k,' ворон'); 
 1 : writeln ('На дереве сидело ',k,' ворона'); 
  5, 6, 7, 8, 9 : writeln ('На дереве сидело ',k,' ворон'); 
 2, 3, 4 : writeln ('На дереве сидело ',k,' вороны');
end;
end.

Решение задачи: «На дереве сидело K ворон»

Листинг программы

case k of
  1: writeln ('а');
  2, 3, 4 : writeln ('ы');
else
  WriteLn
end;

Объяснение кода листинга программы

В данном коде представлен фрагмент программы на языке Pascal ABC. Он содержит оператор case, который выполняет следующие действия:

Проверяет значение переменной k.
Если значение k равно 1, то выводит на экран строку 'а'.
Если значение k равно 2, 3 или 4, то выводит на экран строку 'ы'.
В противном случае, выводит на экран символ новой строки. Таким образом, данный код представляет собой простую программу, которая выводит на экран определенную строку в зависимости от значения переменной k.