//PascalABC.Net 3.2.0.1467
begin
var h := ReadlnReal('Высота =');
var w := ReadlnReal('Ширина =');
var l := ReadlnReal('Длина =');
Println('Площадь поверхности = ', 2 * (w * h + w * l + h * l));
end.
_____________
(A /\ B) \/ (B /\ C) >
(A /\ B) \/ (B /\ C)
Var i: byte;
begin
randomize;
for i := 1 to 10 do
writeln(random(100)+50);
end.
15 - 20 разів для хлопців
В чем вопрос я понять не могу???