mọi người giúp bé bài tin học này với!!(bé cần gấp,mai nộp cho cô rùi!)?

program dayso;

uses crt;

const Nmax=100;

var a,b:array [1..Nmax] of integer;

d,j,i,n,sc,sl:byte;

f:boolean;

begin

writeln('Nhap n:');

readln(n);

sc:=0;

sl:=0;

for i:=1 to n do

begin

writeln('so thu ',i'=');

readln(a[i]);

if a[i] mod 2=0 then sc:=sc+1

else sl:=sl+1;

d:=0;

for j:=1 to a[i] div 2 if a[i] mod j=0 then d:=d+1;

if d=2 then nt:=nt+1;

end;

for i:=2 to n do b[i-1]:=a[i]-a[i-1];

for i:=2 to n do if b[i]=b[i-1] then f:=true else f:=false;

if f:=true then writeln('Do la mot cap so cong') else

writeln('Do khong la mot cap so cong');

writeln('so luong so nguyen to la',nt);

writeln('so luong so chan la',sc);

writeln('so luong so le la',sl);

readln

end.

Minh chi lam dc nhu vay thoi. Chuong trinh hoi dai, thong cam nhe! Chuc thanh cong!!!!!!!!

Em hổng biết...:)