Программа 15. Определить, поместится ли квадрат площади P в круг площади S или круг…

15) var S, P: integer; a,r: real; begina: =sqrt (P); r: =sqrt (S div 3,14); if (r*2 <= a) then writeln ("krug v kvadrate"); else if (r*2 >=a*sqrt (2) then writeln ("kvadrat v kruge"); else writeln ("ne pomeschayutsya drug v druga"); end.