// PascalABC.NET 3.1, сборка 1172 от 19.02.2016 begin var a:=ReadReal('Длина участка'); var b:=ReadReal('Ширина участка'); var c:=ReadReal('Цена 1 метра забора'); Writeln('Стоимость забора ',c*2*(a+b)) end.
Тестовое решение: Длина участка 20.8 Ширина участка 15 Цена 1 метра забора 250.4 Стоимость забора 17928.64
begin
var a:=ReadReal('Длина участка');
var b:=ReadReal('Ширина участка');
var c:=ReadReal('Цена 1 метра забора');
Writeln('Стоимость забора ',c*2*(a+b))
end.
Тестовое решение:
Длина участка 20.8
Ширина участка 15
Цена 1 метра забора 250.4
Стоимость забора 17928.64