дано прямокутник з периметром 28.48 и сторону а 5.6.Знайти другу сторону прямокутника і його площю.Решить нужно в паскале,даю много поинтов,прошу нужна помошь.

var a,b,p,s:real;
begin
write('p = ');
readln(p);
write('a = ');
readln(a);
b:=(p-2*a)/2;
s:=a*b;
writeln('b = ',b:4:2,' s = ',s:5:3);
end.

Пример:
p = 28.48
a = 5.6
b = 8.64 s = 48.384