Определить принадлежат ли цифры арифметической либо геометрической прогрессии — Pascal(Паскаль)

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