буду благодарна.
задание прикреплено.

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 первые буквы и 1 последнюю букву, т.к. до картинки стоит 2 запятые, а после 1 запятая → абл

и → просто буква и → и

ч → просто буква ч → ч

кінь → пишем слово справа налево, т.к. картинка перевёрнута → ьнік → убираем первую букву и последнюю букву, т.к. до картинки стоит 1 запятая и после 1 запятая → ні

собираем → табличні

лев → пишем слово справа налево, т.к. картинка перевёрнута → вел

и → просто буква и → и

ч → просто буква ч → ч

джин → убираем 2 первые буквы, т.к. до картинки стоит 2 запятые → ин

и → просто буква и → и

собираем → величини