đây ạ em mong được đánh giá 5 sao và câu trả lời hay nhất bởi em ngồi tới 12h đêm ạ

uses crt;
var  aa,b,c,d,e,f,g,h,i,j,p,t,q,o,u,max,min,trang,z,vt1,vt2:longint;
a:array[1..10000000] of longint;
begin
readln(aa,b,c,d,e,f,g,h,i,j);
a[1]:=aa;                         min:=aa;
a[2]:=b;
a[3]:=c;
a[4]:=d;
a[5]:=e;
a[6]:=f;
a[7]:=g;
a[8]:=h;
a[9]:=i;
a[10]:=j;
for t:=1 to 10 do    begin
p:=p+a[t];
if a[t] mod 2=0 then inc(q);{q:chan}
if a[t] mod 2=1 then inc(u);{u:le  }
if (a[t] mod 2=0) and (a[t] mod 3=0) then inc(o);{o:chia het 2 3 }
if a[t]>max then  begin max:=a[t]; ;end;
if min>a[t] then  begin min:=a[t];                end;
end;
for z:=1 to 10 do      begin
if a[z]=min then vt1:=z;
if a[z]=max then vt2:=z;end;

for z:=vt1 to vt2 do
trang:=trang+a[z];
writeln('tong cac so vua nhap la ',p);
writeln('trong cac so vua nhap co ',q,' so chan');
writeln('trong cac so vua nhap co ',u,' so le');
writeln('trong cac so vua nhap co ',o,' so chia het cho 2 va 3');
writeln('trong cac so vua nhap co ',max,' la so lon nhat');
writeln('trong cac so vua nhap co ',min,' la so lon nhat');
writeln('tong tu so nho nhat den so lon nhat la ',trang);
readln
end.