Составить программу в pascal для : прямоугольный участок земли имеет периметр р метров. известно, что длина на 20м больше ширины. найдите площадь участка. выберу лучший

Var P,L,W,S:Real;
Begin
 Read(P);
 W:=P/2;
 L:=P+20;
 S:=L*W;
 Writeln('S = ',S:0:0);
end.