$\color{red}{\text{Viết chương trình in ra số lẻ lớn hơn hoặc bằng n với n được nhập từ bàn phím. Tính tổng và đếm số lượng số lẻ}}$. Ai nhanh nhất và đúng nhất thì đc ctlhn+5*+tim. THANKS

uses crt;

var i,n,d,s: integer;

begin

clrscr;

write ('Nhap vao n: ');  readln (n);

s:=0;

d:=0;

write ('Cac so le: ');

for i:=1 to n do if i mod 2<>0 then begin d:=d+1; write (i:4); s:=s+i; end;

writeln;

writeln ('Tong cac so le: ',s);

writeln ('So luong cac so le: ',d);

readln;

end.