Даны площадь S1 круга и площадь S2 квадрата определите поместиться ли круг в квадрат. Напишите программу на паскале

Var s1, s2, r, a:real;

begin

read (s1, s2);

r:=sqrt (s1/pi);

a:=sqrt (s2);

if a*sqrt (2) / 2<=r then writeln ('Поместится')

else writeln ('Не поместится');

end.

Вроде так, но проверьте на своих тестах