дано натуральное число N<1000 , определяющее число дней , прошедших с некоторого события. Приписать к числу соответствующее слово ( день, дня, дней). Число N генерируется в программе - Pascal(Паскаль)

uses crt;
var n:word;
begin
clrscr;
repeat
write('n < 1000 n=');
readln(n);
write(n);
until n<1000;
if n in [11..14] then write(' дней')
else
 case n mod 10 of
 1:write(' день');
 2,3,4:write(' дня');
 else  write(' дней');
 end;
readln
end.