Решить на паскале. заданы площади круга s1 и квадрата s2. определить поместится ли круг в квадрате. решить при а) s1=70, s2=36,74 б) s1=0,86, s2=0,64 квадрат поместится в круге, если диаметр окружности меньше или равен стороне квадрата.
диагональ квадрата и диаметр окружности найти из площади фигур. результат вывести на экран.
Program nm13;
uses crt;
var S1,S2,d,a,diag:real;
begin
writeln('vvedi ploschad kruga i ploschad kvadrata');
readln(S1);
readln(S2);
d:=2*sqrt(S1/3.14);
a:=sqrt(S2);
diag:=2*sqrt(2*a*a);
if diag>d then writeln (' krug pomestits9 v kvadrate ') else writeln (' krug ne pomestits9 v kvadrate ');
readln;
end.