<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (H, W, D) := ReadInteger3;
Println((H div D) * (W div D))
end.
<h2>40 80 40</h2><h2>2 </h2>
Левый столбик ответ: elpack.ty
Правый clock.tt
2 в степени i = N
N=50
i=6 бит (так как 2^5= 32, а мы должны брать с избытком)
A1:=a div 100
a2:=a div 10
writeln('85: 'a1,a2,' 58: 'a2,a1)