Дан прямоугольник abcd. известны длину его сторон и известна его площадь. необходимо найти периметр. (информатика)

Предполагается что извесна только одна сторона

var
    a, s: real;

begin
    readln(a, s);
    writeln('P=', 2 * (a + s / a));
end.