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

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.