Заданы три положительные числа a,b и c. Записать логические выражения, которые имеют значение истина, если они являются последовательно стоящими элементами арифметической или геометрической прогрессии — Pascal(Паскаль)

Program Lab_3_2;
 
Uses crt;
 
const
  Eps = 1e-8;
Var
  a,b,c:integer;
  d1,d2:boolean;
Begin
  Clrscr;
  Writeln ('Введите a');
  Readln (a);
  Writeln ('Введите b');
  Readln (b);
  Writeln ('Введите c');
  Readln (c);
  d1:= (a - b) = (b - c);
  d2:= Abs( (a / b) - (b / c) ) < Eps;
  if d1 and d2 then (*Например, при a = 1, b = 1, c = 1.*)
    Writeln ('Введённые числа являются арифметической и геометрической прогрессией.')
  else if d1 then (*Например, при a = 2, b = 4, c = 6.*)
    Writeln ('Введённые числа являются арифметической прогрессией.')
  else if d2 then (*Например, при a = 2, b = 4, c = 8.*)
    Writeln ('Введённые числа являются геометрической прогрессией.')
  else (*Например, при a = 2, b = 4, c = 7.*)
    Writeln ('Введённые числа не являются арифметической либо геометрической прогрессией.')
  ;
  Readln;
End.