viết chương trình nhập vào n là số nguyên dương tính và đưa ra màn hình tổng các số ở vị trí lẻ của số nguyên đó? giúp em với ạ, em đang cần gấp

Program baitap;

Uses crt;

Var m,n:integer;

Begin

Clrscr;

Write('Nhap m,n'); Readln(m,n);

Writeln('Tong m+n=',m+n);

Writeln('Hieu m-n=',m-n);

Writeln('Tich m*n=',m*n);

Writeln('Thuong m div n=',m div n);

Readln

End.

Program baitap;

Uses crt;

Var m,n:integer;

Begin

 Clrscr;

        Write('Nhap m,n'); Readln(m,n);

        Writeln('Tong m+n=',m+n);

        Writeln('Hieu m-n=',m-n);

        Writeln('Tich m*n=',m*n);

        Writeln('Thuong m div n=',m div n);

 Readln

End.