Составить программу в паскале!!! ПОЖАЛУЙСТА!!! СРОЧНО!!! 9 класс!!! На ввод в программу натурального числа из диапазона [1, 25] программа выводит это число и согласованное с ним слово «книга». Например, на ввод числа 1 программ...

var   count:integer; begin   write('Введите количество книг '); readln(count);   case count div 10 of     1: writeln(count, ' книг');     else       case count mod 10 of         0, 5..9: writeln(count, ' книг');         1: writeln(count, ' книга');         2..4: writeln(count, ' книги');       end;   end; end.