Ты просто должен про думать их состав, что в них входит и всё
Program p;
var
a,b,c,s: integer;
begin
writeln('введите длину:');
readln(a);
writeln('введите диагональ:');
readln(c);
b := sqrt((sqr(c) - sqr(a)));
s := a * b;
writeln('площадь прямоугольника: ', s);
end.
раз три части, значит делением на три
3: 81
3:27
3:9
3:3.
На каждую получается по два взвешивания. и исходя из этого находим ответ - 8