Kiểm tra cấp số cộng của dãy

 

program bai5_chuong4;
uses crt;
var
  A: array[1..100] of integer;
  d,rt,i,N, dem: integer;
begin
  clrscr;
  write ('Nhap N:');
  readln(N);
  while ((n <= 2) or (n >= 100)) do
  begin
    write ('Xin moi Nhap lai:');
    readln(N);
  end;

  for i:=1 to n do
  begin
    write ('Nhap A[',i,']');
    readln(a[i]);

    while ((n <= -100) or (n >= 100)) do
    begin
      write ('Nhap sai , xin moi nhap lai A[',i,']');
      readln(a[i]);
    end;
  end;
  d   := A[2] - A[1];
  dem := 0;
  i:=3;
  While (i <=N) and (A[i]=A[1]+(i-1)*d) do i:=i+1;
  If i > N Then Writeln('Day A la cap so cong')
  Else Writeln('Day A khong la cap so cong');
  readln;
end.