Решение в ! фермер построил две теплицы одинаковой длины l (m). первая теплица имеет в поперечном сечении форму прямоугольника со сторонами размером а на в (метров), вторая - полукруг радиуса r (м). определить, сколько метров полиэтиленовой плётки необходимо фермеру для укрытия всей поверхности теплиц (включая торцы).

Program D1KPxx9;
uses crt;
const pi=pi;
var
a,b,l,r,sum:real;
begin
readln(a,b);
l:=(a+b)*4;
r:=b/2;
sum:=l;
l:=2*pi*r;
l:=l/2;
sum:=sum+l+2*r;
writeln('пленки надо  ',sum:0:2);
end.

вроде работает, вручную не пересчитывал, вводится с клавиатуры числа А и Б, где Б равно длине(обозначенной у тебя Л)-> р=Л/2 или т.к. Б=Л то р=Б/2 
все)))