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

var s1,s2,r,a:real;beginread(s1,s2);r:=sqrt(s1/pi);a:=sqrt(s2);if a*sqrt(2)/2<=r then writeln('Поместится')else writeln('Не поместится');end.Вроде так, но проверьте на своих тестах