Уравнение с тремя переменными (перебор)

var a, b, c, d: Real;
 
begin
  {Процедура, инициализирующая датчик псевдослучайных чисел. 
  Без неё функция Random будет работать некорректно.}
  Randomize;
 
  {Зададим каждой переменной с помощью функции Random(100) значение [0..99], после
  чего добавим 1, чтобы значение этих переменных соответствовало диапазону [1..100].}
  a := Random(100) + 1;
  b := Random(100) + 1;
  c := Random(100) + 1;
 
  //Вычисляем значение переменной D
  d := a + b + c;
  
  //Выводим значение переменной D в консоль
  WriteLn(d);
end.

var a := Random(0, 100);

var D:integer;
    t:boolean;
begin
  repeat
    D:=ReadlnInteger('D=');
  until (D>0) and (D<101);  
  for var A:=1 to 100 do
    for var B:=1 to 100 do
      if D-A-B>0 then begin 
        writelnformat('{0}+{1}+{2}={3}',A,B,D-A-B,D);
        t:=true;
      end;
  if not t then writeln('Решений нет');    
end.