5 записей удовлетворяют условию. 4ж + 1 не ж, но философия> ин. язык
a->B2 =a*a*a->B3 =B3*B3*B3*B2->B4
a->B2 =a*a*a*a->B5 =B5*B5*B5*B5*B5->B6
a->B2 =a*a*a*a*a->B7 =B7*B7*B7*B7*B7->B8
a->B2 =a*a*a*a*a->B7 =B7*B7*B7*B5 ->B9
Диагональ квадрата равна стороне на корень из двух.
В Pascal корень - это sqrt (x)
program one;
var r, a : integer;
begin
read (r, a);
if a * sqrt(2) <= r then
begin
write ('Квадрат помещается в окружности');
end;
if r < (a / 2) then
begin
write ('Окружность помещается в квадрате');
end;
end.
Я знаю, что это правильный ответ