VCT nhập vào 1 số n sau đó in ra màn hình tổng các số lẻ nhỏ hơn hoặc bằng n

program Min;
uses crt;
var i,n:integer;
begin
   clrscr;
   write(‘Nhap n: ‘); readln(n);
   write(‘Cac so le nho hon hoac bang ‘,n,’la :’);
   for i:=1 to n do if i mod 2 = 1 then write(i:4);
   readln
end.