Решить задачу в паскале! Новые учебники для трех курсов, по a штук для каждого курса. Все книги одинаковы по размеру. В книжном шкафу b полок, на каждой вмещается c учебников. Сколько шкафов можно полностью заполнить учебниками??

Предыдущий
вопрос Следующий
вопрос

program Bookshelves;

var
a, b, c, courses, totalBooks, totalShelves: Integer;

begin
write('Enter the number of books for each course: ');
readln(a);

write('Enter the number of shelves in the bookcase: ');
readln(b);

write('Enter the number of books that can fit on each shelf: ');
readln(c);

write('Enter the number of courses: ');
readln(courses);

totalBooks := a * courses;
totalShelves := totalBooks div c;

writeln('The number of bookshelves that can be completely filled with books is: ', totalShelves);
end.