Существует текстовый файл с именем adr.txt, в нем хранятся пять чисел, разделенных на две строки:

2.6 3.2 4.1

0.9 1.9

Какое значение примет переменная d, после выполнения следующих команд:

Var FD: text; a,c,d,b,e: real;

Begin

Assign(FD, ‘adr.txt’);

Reset (FD);

Readln (FD, a, b, c);

Readln (FD, d, e);

Close (FD);

End.

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: барон
Можно составить барон