nhập vào dẫy n số cho biết dãy đó có phải là cấp số cộng hay không

var a: array[1..250] of real;

      i, n: byte;

     d: real;

     kt: boolean;

Begin

    Write(‘nhap n = ‘); readln(n);

    For i:=1 to n do

        Begin

            Write(‘nhap a[‘, i, ‘] = ‘);

            readln(a[i]);

        End;

    d:=a[2]-a[1]; kt:=true;

    For i:=2 to n-1 do if a[i+1]-a[i]<>d then

        begin

             Kt:=false;

             Break;

        End;

    If kt=true then write(‘la cap so cong’)

    Else write(‘khong la cap so cong’);

    Readln

End.

{GM Kiet}