IV/18

var
a, b, j, i, k, cur : integer;
s: string;
fl:boolean;
begin
    ReadLN(a, b);

    for i:= a to b do
        for j:= i to b do//переберем все различные пары чисел, пары (a, b) и (b, a) не являются различными
            begin
                cur := i + j;//вычисляем сумму
                Str(cur, s);//переводим ее в строку
                fl := true;//добавляем флаг, если он true, то число симметричное
                for k:= 1 to (length(s) Div 2) do begin//проходим до середины строки
                    if (s[k] <> s[length(s)-k+1]) then//если число не симметричное
                        begin
                            fl := false;
                            break;//заканчиваем проверку
                        end;
                end;
                if (fl = true) then
                    WriteLN(i, ' + ', j, ' = ', cur);
            end;
end.