mình ko hỉu tổng nghịch đảo là gì nên mình bỏ phần đó nha, có gì thì bạn bình luận bên dưới
program baitap;
uses crt;
var n,d,tb,tu:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
{ Cau 1 }
d:=0;
for i:=1 to n do
if i mod 2=1 then d:=d+1;
writeln('Co ',d,' so le tu 1 den ',n);
{Cau 3}
write('Cac uoc cua n la: ');
for i:=1 to n do
if n mod i=0 then write(i,' ');
writeln;
{Cau 4}
tb:=0;
for i:=1 to n do
if i mod 5=0 then tb:=tb+i;
writeln('Tong cac so chia het cho 5 tu 1 den ',n,' la: ',tb);
{Cau 5}
tu:=0;
for i:=1 to n do
if n mod i=0 then tu:=tu+i;
writeln('Tong cac uoc cua ',n,' la: ',tu);
readln
end.