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

var S, p, a, b: real;

begin

  writeln('Введите периметр прямоугольника');

  readln(p);

  writeln('Введите одну из сторон прямоугольника');

  readln(a);

  b:=(p-2*a)/2;

  s:=a*b;

  writeln('Площадь прямоугольника равна ', s);

end.