CS:=A[1]-A[2];
if ((A[1]=0)and(A[2])=0))or(CS=0) then
begin
write(f,'k phai');
close(f);
exit;
end;
dem:=2;
for i:=3 to N do if A[i]=A[i-1]+CS then inc(dem);
if dem=0 then