// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var (a,r):=(5.0,1.5);
Writeln('Длина ограды ',4*a,' м., кол-во удобрения ',a*a-pi*r*r:0:1)
end.
Результат
Длина ограды 20 м., кол-во удобрения 17.9