Дано прямокутник з периметром 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