Các bài của mình đều ko có phần kiểm tra giá trị nhập xem có đúng yêu cầu ko nhé. Bạn vui lòng viết thêm phần kiểm tra nếu cần giúp mình. (Tat ca deu da test) 
{Bai 1:} 
program cap_so_cong; 
uses crt; 
var a: array[1..100] of integer; 
i, n, k: integer; {i la bien dem, k de luu cap so} 
begin 
clrscr; 
write('N= '); readln(n); 
for i:=1 to n do 
begin 
write('A(',i,')= '); readln(a[i]); 
end; 
{Bat dau phan kiem tra} 
k:=a[2]-a[1]; 
i:=2; 
repeat 
i:= i+1; 
until (a[i]<>a[i-1]+k) or (i>n); 
if i>n then write('Day A la mot cap so cong') 
else write('Day A khong phai la mot cap so cong'); 
readln 
end. 
--------------------------------------... 
{Bai 2:} 
program loc_day; 
uses crt; 
var a: array[1..100] of integer; 
j,i,n,sole,sochan,so_ngto:integer; 

{Than chuong trinh} 
begin 
clrscr; 
write('N= '); readln(N); 
for i:=1 to n do 
begin 
write('A(',i,')= '); 
readln(a[i]); 
end; 
{Kiem tra} 
sochan:=0; 
sole:=0; 
so_ngto:=0; 
for i:=1 to n do begin 
if (a[i] mod 2 = 0) then sochan:=sochan+1 
else if (a[i] mod 2 = 1) then sole:=sole+1; 
if a[i]>1 then 
begin 
if a[i]=2 then so_ngto:=so_ngto+1 
else begin 
j:=1; 
repeat 
j:=j+1; 
until (a[i] mod j=0) or (j=a[i]-1); 
if j=a[i]-1 then so_ngto:=so_ngto+1; end; 
end; end; 
writeln('Trong day co: '); 
writeln(sole,' so le'); 
writeln(sochan,' so chan'); 
writeln(so_ngto,' so nguyen to'); 
readln 
end. 
--------------------------------------... 
program fibonacci; {Chuong trinh tim duoc toi f(46) neu muon lon hon bo trunc va 1 cap dau ngoac don o dong 4 tu duoi len khi do se hien thi duoi dang dau phay dong) 
uses crt; 
var n:integer; 
{-------------------------------------... 
function lt(x,y:real):real; 
var l:real; i:integer; 
begin 
l:=1; 
for i:= 1 to trunc(y) do l:=l*x; 
lt:=l 
end; 
{-------------------------------------... 
function F(n: integer):real; 
var a,b,c,kq: real; 
begin 
c:=1/sqrt(5); 
a:=(1+sqrt(5))/2; 
b:=(1-sqrt(5))/2; 
kq:=c*(lt(a,n)-lt(b,n)); 
f:=kq; 
end; 
{-------------------------------------... 
begin 
clrscr; 
writeln(' TIM SO FIBONACCI'); 
writeln('-------------------------'); 
writeln; 
write('Ban can tim so fibonacci thu may? n= '); readln(n); 
if n>=0 then write('F(',n,')= ',trunc(F(n))) 
else write('Khong ton tai F(',n,')'); 
readln; 
end. 
--------------------------------------... 
program day_s; 
uses crt; 
var s:string[100]; 
code:integer; x:real; i:byte; 
begin 
clrscr; 
write('s= '); readln(s); 
for i:=1 to 100 do {vong lap nham muc dich xoa het chu trong xau s} 
begin 
val(s,x,code); 
if code<>0 then delete(s,code,1); 
end; 
write('Trong day co: ',length(s),' chu so'); 
readln 
end. 
--------------------------------------... 
Minh ko co nhieu thoi gian, check lai giup minh nhe. Neu tot 5 sao nhe