viết chương trình nhập vào 1 số nguyên n (n>0). tính trung bình cộng các số nguyên lẻ từ 1 đến n

program trung_binh_le;

uses crt;

var n,i,d,t:integer;

begin

        clrscr;

        write(‘Nhap n: ‘);  readln(n);

        t:=0;   d:=0

        for i:=1 to n do

                if i mod 2=1 then 

                        begin

                                t:=t+i;

                                d:=d+1;

                        end;

        write(‘Trung binh cong cac so le tu 1 den ‘,n,’ la: ‘,t/d:2:2);

        readln;

end.