Дан перимитр и одна из сторон прямоугольника.Найти и вывести его площадь

Question

Дан перимитр и одна из сторон прямоугольника.Найти и вывести его площадь

Answer 1

Program n1;
var P,a,b: real;
begin
write('a=');
readln(a);
write('P=');
readln(P);
b:=0.5*P-a;
writeln('S=',a*b);
end.