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

//Pascal ABC.NET v3.1 сборка 1172

Var a,b,c:integer;
begin
 read(a,b,c);
 b:=b*c;
 a:=a div b;
 writeln(a);
end.

Пример ввода:
13
3
4
Пример вывода:
1