Нужно, : экзамен по информатике проводится 31 числа. пользователь вводит целое положительное число n от 0 до 31. с оператора case напечатать фразу «до проведения экзамена осталось n дней» (вместо n должно быть напечатано число), при этом правильно просклоняв слово « дней» ( «день», «дня» ) в зависимости от значения введенного n.

Program chisl;
var n:integer;
begin
read(n);
case n of
1,21,31 : writeln('До проведения экзамена осталось ',n,' день');
2,3,4,22,23,24 : writeln('До проведения экзамена осталось ',n,' дня');
5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,25,26,27,28,29,30 : writeln('До проведения экзамена осталось ',n,' дней');
end;
end.