Напишите программу на Паскале, условие задачи в приложении
begin
var (H, W, D) := ReadInteger3;
Println((H div D) * (W div D))
end.