Admin คับ ช่วยดูโปรแกรมทีนะคับ ทามมาทั้งวันปวดหัว

คือโจทย์ให้รับค่าเริ่มต้นและค่าสุดท้ายอะคับ แล้วให้โปรแกรมบวกเฉพาะเลขคู่ แล้วแสดง และ หาค่าเฉลี่ยของผลบวกเลขคู่
ผมทำแล้ว หาผลบวกเลขคู่ได้ แต่ Average มันได้ไม่ตรงอะคับ อย่าง a เป็น 1 b เปง 10  เลขคู่ก้อจะเปง 2 4 6 8 10 บวกกันได้ 30 แต่พอหารมันกลับไม่ได้ 6 งับ ได้แค่ 1 หรือ 2

ช่วยทีนะคับ Admid

Help me pls!!!!!!

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