Вывести корректную с точки зрения русского языка строку основываясь на количестве - PascalABC.NET

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

Пользователь социальной сети хочет узнать, сколько у него друзей. Сформируйте строку-уведомление, которую следует отправить пользователю. Входные данные Входной поток содержит единственное целое число N (0 <= N < 1000) — количество друзей пользователя. Выходные данные Выведите корректную с точки зрения русского языка строку — «u vas ... drug», «u vas ... druga» или «u vas ... druzei». Вместо многоточия следует вывести число друзей.

Я решил, но не могу вбить исключения ( 11, 12,13,14.....)

                    Листинг программы
                
 
                        
                          
                    
Program friends; 
var N,k:integer; 
BEGIN 
 
readln(N); 
write('u vas ', N); 
if N in [0..999] then 
begin 
k:= N mod 10; 
case k of 
1: writeln( ' drug'); 
2..4: writeln( ' druga'); 
5..9,0:writeln( ' druzei'); 
end; 
end; 
END.

Решение задачи: «Вывести корректную с точки зрения русского языка строку основываясь на количестве»

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

readln(n);
case  n mod 100 of
11..19:write(n,' druzei');
else
 case n mod 10 of
 1:write(n,' drug');
 2..4:write(n,' druga');
 else  write(n,' druzei')
 end;
end;

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

Вводится число n с помощью функции readln.
Используется оператор mod для определения остатка от деления числа n на 100.
В зависимости от значения остатка от деления на 100, выводится соответствующая строка: druzei, если остаток от деления на 100 находится в диапазоне от 11 до 19, и drug, если остаток от деления на 10 равен 1.
Если остаток от деления на 100 не равен 11, 12, 13, 14, 15, 16, 17, 18 или 19, и остаток от деления на 10 равен 2, 3 или 4, то выводится соответствующая строка: druga.
Во всех остальных случаях выводится строка druzei.