5. сколько устройств вывода перечислено: мышь,дисплей,сканер, колонки, диск, принтер, джойстик, плоттер, клавиатура?

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.

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

Ход решения:
Делим число на 2 и выписываем остатки
76 = 38·2 + 0
38 = 19·2 + 0
19 = 9·2 + 1
9 = 4·2 + 1
4 = 2·2 + 0
2 = 1·2 + 0
Последний множитель перед 2 равный 1 записываем первым.
Затем записываем найденные остатки в обратном порядке.
Получаем: 1001100

Ход решения:
Делим число на 2 и выписываем остатки
82 = 41·2 + 0
41 = 20·2 + 1
20 = 10·2 + 0
10 = 5·2 + 0
5 = 2·2 + 1
2 = 1·2 + 0
Последний множитель перед 2 равный 1 записываем первым.
Затем записываем найденные остатки в обратном порядке.
Получаем: 1010010

Ход решения:
Делим число на 2 и выписываем остатки
83 = 41·2 + 1
41 = 20·2 + 1
20 = 10·2 + 0
10 = 5·2 + 0
5 = 2·2 + 1
2 = 1·2 + 0
Последний множитель перед 2 равный 1 записываем первым.
Затем записываем найденные остатки в обратном порядке.
Получаем: 1010011