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

Var p,a,b:real;
begin
writeln('ведите периметр');
readln(p);
writeln('введите 1 сторону');
readln(a);
b:=p/2*a;
writeln('2 сторона равна =', b);
end.

Program asd;
USES crt;
var p,a,b:real;
BEGIN
clrscr;
writeln('Vvedite P: ');
readln(p);
Writeln('Vvedite storony: ');
readln(a);
b:=(p-2*a)/2;
writeln('Storona ravna B: ', abs(b));
END.