<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>
Имеется в виду - выбрать перечисление, совпадающее с диаграммами по порядку? Тогда вариант "Г".
Uses crt;
type sInfo = record
surname:string;
height:integer;
end;
var pInfo:array [1..12] of sInfo;
begin
pInfo[1].surname := 'Смирнов';
pInfo[1].height := 190;
pInfo[2].surname := 'Иванов';
pInfo[2].height := 155;
pInfo[3].surname := 'Николаев';
pInfo[3].height := 150;
pInfo[4].surname := 'Викторов';
pInfo[4].height := 168;
// И так далее по примеру выше.
// Вывод вот так:
writeln('Фамилия = ', pInfo[1].surname, ' Возраст = ', pInfo[1].height);
end.
Умножь 7 на 33(Столько букв в русском языке) = 231