решить (желательно ворд) ​

В глубокой древности - на стенах пещер, на глиняных табличках, восковых дощечках, на скрижалях, потом на папирусе, бересте, пергаменте и т. д. Потом изобрели бумагу. В старину писали стилом, палочками, гусиными перьями, углями. Были ещё какие-то средства. В девятнадцатом веке изобрели пишущие машинки, фотоаппараты - ведь запечатление изображений на фотоплёнках и фотопластинках, это тоже запись информации. Также в 19 столетии появились граммофоны, патефоны, механические пианино, шарманки (музыка - тоже информация) . А уже ближе к нашим временам появились магнтитофоны, видеомагнтитофоны, потом лазерные устройства для записи на диски. Наконец, мобильники, фотоаппараты, компьютеры - это тоже накопители информации, которая хранится на дисках, флэшках, картах памяти и т. д. В общем, сам поищи в интернете, напиши разные варианты для поиска, например, "древние записи информации", "старинные носители информации", "папирус, глина, берестяные грамоты, письмена", "Александрийская библиотека" и т. д.

Var
    s: string;
    a, b: integer;
begin
    readln(s);
    if s[1] = 'x' then begin
        a := StrToInt(s[3]);
        b := StrToInt(s[5]);
        if s[2] = '-' then a := -a;
        writeln(b - a);
    end
    else if s[3] = 'x' then begin
        a := StrToInt(s[1]);
        b := StrToInt(s[5]);
        if s[2] = '-' then begin
            a := -a;
            b := -b;
        end;
        writeln(b - a);
    end
    else if s[5] = 'x' then begin
        a := StrToInt(s[1]);
        b := StrToInt(s[3]);
        if s[2] = '-' then
            b := -b;
        writeln(a + b);
    end
end.

учтите что никакой защиты от дурака или неверного ввода