Дан круг с радиусом - r и квадрат со стороной а.

Диагональ квадрата одинакова стороне на корень из 2-ух.

В Pascal корень - это sqrt (x)

program one;

var r, a : integer;

begin

   read (r, a);

   if a * sqrt(2) lt;= r then

   begin

       write ('Квадрат помещается в окружности');

   end;

   if r lt; (a / 2) then

   begin

       write ('Окружность вмещается в квадрате');

   end;

end.