cap so nhan

program cau2;
uses crt;
var n,i,j,w:integer;
    t,congboi:real;
    a:array[1..100] of real;

begin
 clrscr;
 write('Nhap n= ');readln(n);
 for i:=1 to n do
  begin
   write('a[',i,']= ');
   readln(a[i]);
  end;
  congboi:=a[2]/a[1];
  w:=0;
 for i:=3 to n do
  begin
   t:=1;
   for j:=1 to (i-1) do t:=t*congboi;
   t:=t*a[1];
   if a[i] <> t then inc(w);
  end;

 if (w<>0) and (congboi<>0) then
  write('Day da nhap khong phai cap so nhan')
 else
  write('Day da nhap la cap so nhan');
 readln;
end.