Question

используя подпрограмму вычислить диагональ квадрата, если дана площадь(Pascal)

Answer 1

program prog;

var square:Extended;

begin  

readln(square);

square := sqrt(2 * square);

writeln(square);

end.