Viết chương trình in ra màn hình các số lẽ từ 1 cho đến n

print(*list([i for i in range(1,int(input('nhap n: '))+1) if i%2!=0]))

program B1;
uses crt;
var i,S,n:integer;
begin
clrscr;
write(‘nhap so n:’);
readln(n);
i:=i;
S:=0;
while i <= n Do
begin
if i mod 2 <> 0 then
S:=S+i;
i:=i+1;
end;
writelln(‘tong so la :’);
readln;
end.