Даны площадь круга и площадь квадрата . Определите, поместиться ли квадрат в круг? — Pascal(Паскаль)

uses crt;
var squareArea, circleArea, squareSide, circleDiameter: real;
begin
    clrcsr;
    write('введите площадь квадрата');
    readln(squareArea);
    write('введите площадь круга');
    readln(circleArea);
    squareSide := sqrt(squareArea);
    circleDiameter := 2 * sqrt(circleArea / pi);
    if squareSide >= circleDiameter then
        writeln('круг поместится в квадрате')
    else
        writeln('круг не поместится в квадрате');
    readln
end.