Придумай систему обладающую следующей структурой​

Чтобы квадрат вписался в круг, его диагональ должна быть равна диаметру круга. Если трактовать "уместиться" как "пролезть", то диагональ должна быть меньше диаметра..
Формулы площадей квадрата  S₁ и круга S₂ известны, что легко позволяет нам найти нужное условие.

Если нужно, чтобы случай, когда квадрат вписан в круг тоже учитывался, строгое неравенство следует заменить нестрогим.

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
  var s1:=ReadReal('Площадь квадрата');
  var s2:=ReadReal('Площадь круга');
  if pi*s1<2*s2 then Writeln('Квадрат умещается в круге')
  else Writeln('Квадрат не умещается в круге')
end.

Тестовое решение:
Площадь квадрата 24.6
Площадь круга 28.4
Квадрат не умещается в круге

{Даны вещественные числа a,b,c. Определите, существует ли треугольник со сторонами a,b,c?}
var a,b,c:real;
begin
  writeln('введите стороны треугольника');
  readln(a, b, c);
  if (a+b>c) and (a+C>b) and (b+c>a) then  writeln('треугольник существует')
  else   writeln('треугольник не существует');
end.

{ Дано целое положительное число. Определите, оканчивается ли оно цифрой 7}
var
  N:integer;
begin
  writeln('введите число');
  readln(N);
  if n mod 10= 7 then
    writeln('оканчивается  цифрой 7')
   else    writeln( 'не оканчивается цифрой 7');
end.