Последовательность.Дана последовательноть опреелить является ли она арифметической последовательностью

program lab2;
var
a,b,c:integer; x:real;
begin
write('Введите x');
readln(x);
write('Введите число    a ');
readln(a);
write('Введите число    b');
readln(b);
write('Введите число:   c ');
readln(c);
x:=(a-b);
write('Первое значение: ',x);
x:=(b-c);
write('Второе значение: ',x); 
if x=x then 
write('Это арифметическая прогрессия');
readln;
end.

program lab2;
var a,b,c,i,x,s:integer;
begin
s:=0;
writeln('введите количество элементов');
readln(x);
writeln('введите 1-й элемент');
readln(a);
writeln('введите 2-й элемент');
readln(b);
c:=b-a;  // находим разность прогрессии для первых двух эллементов
b:=a
for i:=3 to x do
begin
writeln('введите ', i,'-й элемент');
readln(a);
if (b-a)<>c then s:=1; // если разность для текущих двух элементов не равна тому что было  начале, то присвоим переменной s единицу( признак ошибки)
b:=a;
end;
if s=0 then writeln('последовательность является арифметической прогрессией) // если не было ошибок то прогрессия)
  else writeln(' последовательность не является арифметической прогрессией');
end.

program lab2;
var
a,b,d,i,k:integer;
begin
write('Введите кол-во элементов последовательности: ');
readln(k);
write('Введите разницу прогрессии: ');
readln(d);
repeat
     i:=i+2;
     write('Введите число: ');
     readln(a);
     write('Введите число: ');
     readln(b);
     if b-a<>d then
          begin
               writeln('Последовательность не является арифметической прогрессией');
               exit;
          end;
until i=k; 
writeln('Последовательность является арифметической прогрессией');
end.

var
a,b,c:integer; x,y:real;
begin
write('Введите число А ');
readln(a);
write('Введите число В ');
readln(b);
write('Введите число С ');
readln(c);
x:=(a-b);
writeln('Значение х ',x);
y:=(b-c);
writeln('Значение у ',y);
if x=y then 
write ('Арифметическая последовательность');
if x<>y then
write('Неарифметическая последовательность');
readln;
end.