program in_so_le_nho_hon_hoac_bang_n; uses crt; var n, i, s: integer; begin clrscr; textcolor (white); write ('nhap n: '); readln (n); i:=0; s:=0; repeat i:=i+1; for i:=i to n do if i mod 2 = 1 then begin s:=s+i; end; until i = n; writeln ('tong cua cac so la nho hon hoac bang ',n,' la: ',s); writeln ('========== HET =========='); readln; end.
