на 3 и 4 вопрос.
если сможете то на 1 и 2 ( хочу проверить)​

1. картинка

2. 2) палка

Объяснение:

1.

Общий порядок действий:

1) скобки

2) НЕ (¬, черта над выражением) - значение противоположно исходному высказыванию

3) И (∧) - истинно, когда оба исходных высказывания истинны

4) ИЛИ (∨) - ложно, когда оба исходных высказывания ложны

2.

(Первая буква слова согласная ИЛИ Вторая буква слова гласная) И Последняя буква гласная = 1 (истинно)

1) ирис

2) палка

3) словарь

И - истинно, когда оба исходных высказывания истинны

(Первая буква слова согласная ИЛИ Вторая буква слова гласная) = 1 (истинно)

Последняя буква гласная = 1 (истинно)

Проверим правую часть (Последняя буква гласная = 1 (истинно)):

1) ирис = 0 (ложно, с - согласная буква)

2) палка = 1 (истинно, а- гласная буква)

3) словарь = 0 (ложно, ь - не гласная и не согласная буква)

Осталось всего 1 слово (палка)

Проверим левую часть ((Первая буква слова согласная ИЛИ Вторая буква слова гласная) = 1 (истинно))

ИЛИ - истинно, когда любое из исходных высказываний истинно

Первая буква слова согласная = 1 (истинно)

ИЛИ

Вторая буква слова гласная = 1 (истинно)

2) палка = 1 (истинно, п - согласная буква, а - гласная буква)

1) ирис = 0 (ложно, и - гласная буква, р - согласная буква)

3) словарь = 1 (истинно, с - согласная буква, л - согласная буква)

Слово палка подходит и под левую часть

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.

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