напиши в виде программы паскаль эти данные : ‎15Арбузов -2=13 ‎20яблок-11=9 ‎4апельсина -2=2

Для решения данной системы уравнений методом подбора, представим её в виде программы на языке Pascal. Обычно, для решения системы уравнений используется алгоритмический подход, но в данном случае мы можем просто перебрать все возможные значения для переменных Арбузов, яблок и апельсина и найти те, которые удовлетворяют условиям задачи.

program SolveEquations;
var
  Арбузов, яблок, апельсина: integer;

begin
  for Арбузов := 1 to 100 do
    for яблок := 1 to 100 do
      for апельсина := 1 to 100 do
        begin
          if (Арбузов - 2 = 13) and (яблок - 11 = 9) and (апельсина - 2 = 2) then
            begin
              writeln('Арбузов = ', Арбузов);
              writeln('яблок = ', яблок);
              writeln('апельсина = ', апельсина);
              readln;
              exit;
            end;
        end;
end.

Эта программа перебирает значения переменных Арбузов, яблок и апельсина в диапазоне от 1 до 100. После подбора всех возможных комбинаций, программа найдет значения переменных, удовлетворяющие условиям задачи.