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

// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
  var d:=ReadReal('Диагональ прямоугольника');
  var S:=ReadReal('Площадь прямоугольника');
  var Di:=sqr(d*d)-4*S*S;
  if Di<0 then Writeln('Неверные данные')
  else begin
    var b:=sqrt((d*d-sqrt(Di))/2);
    var P:=2*(S/b+b);
    Writeln('P=',P:0:4)
    end
end.