Question

Answer 1

var A:Array [1..100] of integer;

     n,i:byte;

begin

write('Trong day co so so hang la : n = '); readln(n);

for i:=1 to n do begin

                         write('A[',i,'] = ');

                          readln(A[i]);

                         end;

d:=d+1;

for i:=1 to n - 2 do if A[i] + A[i+2] = 2*A[i+1] then d:=d+1;

if d = n - 2 then write('Day la cap so cong') else ('Day khong phai la cap so cong');

readln

end.