Admin ค๊าบ ผมขออีกที มีข้อผิดพลาด

Program Oat;
Uses Crt;
Var i,sum,a,b,x:integer;
Begin
  clrscr;
  write('Input Number : ');readln(a);
  write('Input Number : ');readln(b);
  sum:=0;
  i:=2;
  repeat
  sum:=sum+i;
  i:=i+2;
  x:=x+1;
  until i>b;
  writeln('Summary of even number from ',a,'..',b,' =',sum:3);
  writeln('Average of ',a,'..',b,' = ',sum/x:1:2);
  readln;
end.

พอรันนะคับ ถ้าใส่ 1,10 หรือ 2,8 ก้อได้อยู่ แต่ถ้าไปเริ่มที่ 8,12 หรือตัวอื่น ที่ไม่ได้เริ่มจาก 1หรือ 2 โปรแกรมจะมั่วเรยจ้า

อย่างใส่ a=8 b= 12 คำตอบได้ 42 ซะงั้นผลหารก้อไปไกลเรย

ผมลองแก้เปง

Program Oat;
Uses Crt;
Var i,sum,a,b,x:integer;
Begin
  clrscr;
  write('Input Number : ');readln(a);
  write('Input Number : ');readln(b);
  i:=a;
  repeat
  sum:=sum+i;
  i:=i+2;
  x:=x+1;
  until i>b;
  writeln('Summary of even number from ',a,'..',b,' =',sum:3);
  writeln('Average of ',a,'..',b,' = ',sum/x:1:2);
  readln;
end.

ดันหาเลขคู่ได้ไม่ว่าจะเริ่มตรงไหน แต่ถ้าใส่เลขคี่ จบข่าวคับ มันอาจเลขคี่ไปเรย T-T ช่วยผมด้วยนะค๊าบ