Viết chương trình nhập 2 số nguyên a và b(a<b) từ bàn phím. Tính trung bình cộng 2 số trên đoạn [a,b]

uses crt;

var a, b, s, k : integer;

begin

clrscr;

write('Nhap a, b = '); readln(a, b);

if a < b then

    begin

        s := 0;

        for k := a to b do s := s + k;

        writeln('Trung binh = ', s / (b - a + 1) : 2 : 1);

end;

readln

end.

program tbc;
uses crt;
var a,b,sum,i:integer;
BEGIN
    clrscr;
    write('Nhap vao a: '); readln(a);
    write('Nhap vao b: '); readln(b);
    sum := 0;
    for i:= a to b do sum := sum+i;
    write('TBC: ',sum/(b-a));
    readln;
END.
Nếu mà đung cho em xin 5* nhá