1) uses crt;

var n,i,tong:integer;

begin clrscr;

write('nhap so nguyen n:');

readln(n);

for i:=1 to n do

if i mod 2<>0 then tong:=tong+i;

write('tong cac so le nho hon hoac bang n la:',tong);

readln;

end. * có thể thay "if i mod 2<>0" bằng "if i mod 2=1", cách nào cũng đúng nhé bn