uses crt;

var a : array[1..100] of integer;
      i, n, c, dem : integer;
begin
clrscr;
dem := 1;
write('nhap so luong phan tu trong mang :');readln(n);
for i := 1 to n  do
begin
write('nhap phan tu thu ', i ,' : ');readln(a[i]);
end;
c := a[2] - a[1] ;
for i := 2 to  n - 1 do
if a[i + 1] - a[i] = c then dem := dem + 1;
if dem = n - 1 then writeln('day tao thanh cap so cong')
else writeln('day khong tao thanh cap so cong');
readln
end.

#include <iostream>
using namespace std;
int main()
{
     int a[1000], i, n, c, dem = 1 ;
     cout<<" nhập số lượng phần tử có trong dãy :";
     cin>> n;
     for (i = 1; i <=  n; i++ ){
          cout<<" nhập số hạng thứ  "<< i <<" : ";
          cin>> a[i];
     }
     c = a[2] - a[1];
     for (i = 2; i < n; i++ ){
          if (a[i + 1] - a[i] == c) {
               dem += 1;
          }
     }
     if (dem == n - 1 ){
          cout<<" dãy tạo thành cấp số cộng "<< endl;
     }
     else{
          cout<<" dãy không tạo thành cấp số cộng "<< endl;
     }
    return 0;
}