Заданы площади квадрата и круга. Определите, поместится ли квадрат в круге В ПАСКАЛЕ ПОЖ ПОМОГИТЕ

решение на Turbo Pascal 7.0

uses crt;
var S1, S2: integer;
begin
clrscr;
write (' Введите площади круга и квадрата (через пробел) = ');
readln (S1, S2);
if S1 / S2 < 0.785 then write (' Круг можно вписать')
{отношение площадей вписанного круга в квадрат = const = 0.785}
else write (' Круг нельзя вписать в квадрат');
readln;

end.

Площадь круга a1, квадрата a2
находим диаметр круга d1 и диагональ квадрата d2

d1:=2*sqrt(a1/3.1416);
d2:=sqrt(2*a2);
if d2 < d1 then writeln 'yes' else writeln 'no';

Площадь квадрата: Sq = sqr(d) / 2, где d - диагональ
Площадь круга: Sc = sqr(D) * pi / 4, где D - диаметр.

Квадрат помещается в круг, если D >= d. Т. е. sqr(D) / sqr(d) >= 1

Sc / Sq = (sqr(D) * pi / 4) / (sqr(d) / 2) = (pi / 2) * (sqr(D) / sqr(d))
sqr(D) / sqr(d) = (Sc / Sq) * (2 / pi) >= 1
Sc / Sq >= pi / 2

Ответ: квадрат помещается в круг, если Sc / Sq >= pi / 2

var sc, sq: real;
begin
write('Площадь круга: ');
readln(sc);
write('Площадь квадрата: ');
readln(sq);
if sc / sq >= pi / 2.0 then
writeln('да')
else
writeln('нет')
end.

Из площади квадрата вычисляешь длину стороны, из площади круга считаешь диаметр. Если сторона квадрата больше диаметра круга, значит поместится