Программа 15. определить, поместится ли квадрат площади p в круг площади s или круг поместится в квадрат, или они не поместятся друг в друга (центры круга и квадрата находятся в одной точке). ответ вывести на экран.

15) var S, P: integer;
a,r: real;
begin
a := 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.