uses crt; var n,i:byte; f:array[0..100]of QWord; begin write('N= (n<=100) ');readln(n); f[0]:=0; f[1]:=1; for i:=2 to n do f[i]:=f[i-1]+f[i-2]; writeln(f[n]); readln end.
program csc; uses crt; var a:array[1..100] of integer; i,n,d:integer; t:boolean; begin clrscr; write('nhap so phan tu cua day '); readln(n); for i:=1 to n do begin write('a[',i,']='); readln(a[i]); end; if n<=2 then write('la cap so cong ') else begin d:=a[2]-a[1]; t:=true; for i:=3 to n do if a[i]<>a[i-1]+d then begin t:=false; break; end; if t then write('la cap so cong') else write('khong phai cap so cong '); end; readkey; end.
