Жели кабели жуйелик блокка косуга арналган порт

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.

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

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