uses
   System.SysUtils;

var
   NumA, NumB, Sum: Integer;

const
   Min = 1;
   Max = 10;

begin
   Randomize;
   NumA := random(Max) + Min;
   WriteLn('Случайное число = ', NumA);
   NumB := random(Max) + Min;
   WriteLn('Случайное число = ', NumB);
   Sum := NumA + NumB;
   repeat
      NumA := NumB;
      NumB := random(Max) + Min;
      WriteLn('Случайное число = ', NumB);
      Sum := Sum + NumB;
   until (abs(NumA - NumB) < 1);
   WriteLn('Сумма = ', Sum);
   ReadLn;
end.