Мистер Фокс разгадывает загадку. На бумаге должно быть 9 чисел в таблице 3 на 3. Все числа различаются друг от друга. Случилась неприятность, на центральное поле попала вода. После этого прочесть её никак не получается. Мистер Фокс знает, какие действия над числами совершались в таблице.
1. Сортируем второй столбец по возрастанию.
2. Прибавляем к первой строке вторую.
3. Сортируем первую строку по возрастанию.
4. Вычитаем из второй строки третью
5. Сортируем все столбцы по убыванию
найти неизвестное число, если после всех действий получилась новая таблица:

Информационные процессы:
получение - учитель вам рассказывает новую тему, прослушивание лекций в университете
создание - открытие Ньютоном новых законов, создание таблицы Менделеевым
сбор - чтение книг в школьной библиотеке
обработка - осмысление полученных знаний в школе
накопление - запоминание формул на уроке математики, запись лекций в тетрадь
хранение - память о каком-либо произведении
поиск - поиск номера телефона в контактах, поиск вашего местоположения на карте метро
распространение - включение музыки по радио, печатание новостей в газетах, показ телепередач по ТВ
использование - решение задач с использованием формул, использование таблицы Менделеева для решения химических реакций

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

procedure (a,b,c:real; var Корни:(real,real);
    var ЧислоКорней:integer);
begin
  if a=0 then ЧислоКорней:=0
  else begin
    var D:=b*b-4*a*c;
    if D>0 then begin
      var p1:=-b/2/a; var p2:=Sqrt(D)/2/a;
      Корни:=(p1-p2,p1+p2);
      ЧислоКорней:=2
      end
    else
      if D=0 then begin
        var p1:=-b/2*a;
        Корни:=(p1,p1);
        ЧислоКорней:=1
        end
      else ЧислоКорней:=0
    end
end;

begin
  var (a,b,c):=ReadReal3('Коэффициенты биквадратного уравнения a,b,c:');
  var Корни:=(0.0,0.0);
  var ЧислоКорней:=0;
  (a,b,c,Корни,ЧислоКорней);
  if ЧислоКорней=0 then Writeln('Нет корней')
  else begin
    var НомерКорня:=1;
    var r:=Корни[0];
    if r>0 then begin
      Writeln('x1=',-Sqrt(r),', x2=',Sqrt(r));
      НомерКорня:=3
      end
    else
      if r=0 then begin
        Writeln('x1=0');
        НомерКорня:=2
        end;
    r:=Корни[1];
    if r>0 then
      Writeln('x',НомерКорня,'=',-Sqrt(r),', x',НомерКорня+1,'=',Sqrt(r))
    else
      if r=0 then Writeln('x',НомерКорня,'=0');
    end
end.

Примеры
Коэффициенты биквадратного уравнения a,b,c: 1.25 -5 -13.7
x1=-2.42235751307744, x2=2.42235751307744

Коэффициенты биквадратного уравнения a,b,c: 4 -5 1
x1=-0.5, x2=0.5
x3=-1, x4=1