Nhập vào từ bàn phím 10 số bất kì: a, tính tổng của 10 số và nhập b, đếm xem trong các số vừa nhập có bao nhiêu số chẵn, bao nhiêu số lẽ, bao nhiêu số chia hết cho 2 và 3 c, Tìm số lớn nhất và số nhỏ nhất trong các số đó d, tính tổng các số nằm trong khoảng từ số nhỏ nhất đến số lớn nhất đó. dùng pascal Lưu ý:chỉ sd vòng lặp For to do hoặc While do để giải bài toán ? giúp mình vs

đâ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.