составить программу в паскале!!! ПОЖАЛУЙСТА!!! СРОЧНО!!! 9 класс!!! На ввод в программу натурального числа из диапазона [1, 25] программа выводит это число и согласованное с ним слово «книга». Например, на ввод числа 1 программа выводит «1 книга», на ввод числа 2 — «2 книги» и т. д.
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.
Оцени ответ