Слева вопрос ,справа варианты ответов

Import math
def check_square(circle_sq,rect_sq):
    l_rect = math.sqrt(rect_sq)
    r_in_circle = l_rect/2
    s_in_circle = math.pi*pow(r_in_circle,2)
    if circle_sq <= s_in_circle:
        print("Круг уместится в квадрате")
    #
    r_circle = math.sqrt(circle_sq/math.pi)
    d_circle = r_circle*2
    s_in_rect = pow(d_circle,2)/2
    if rect_sq <= s_in_rect:
        print("вадрат уместится в круге")
circle_sq = input("Введите площать круга: ")
rect_sq = input("Введите площать квадрата: ")
check_square(circle_sq,rect_sq)

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
  var x:=ReadlnString('Введите слово Х:');
  var y:=ReadlnString('Введите слово Y:');
  var Good:=True;
  for var i:=1 to y.Length do begin
    var p:=Pos(y[i],x);
    if p>0 then Delete(x,p,1)
    else begin Good:=False; Break end
    end;
  if Good then
    Writeln('Можно составить ',y)
  else
    Writeln('Нельзя составить ',y)
end.

Тестовое решение:
Введите слово Х: образование
Введите слово Y: название
Нельзя составить название

Введите слово Х: образование
Введите слово Y: барон
Можно составить барон