uses crt;
var i,n:longint;
begin
clrscr;
write('Nhap n: ');readln(n);
write('Cac so chan nho hon n la: ');
for i:=1 to n-1 do
if i mod 2=0 then write(i,',');
readln
end.
uses crt;
var n,i:integer;
begin
writeln('nhap n');
readln(n);
for i:=1 to n do
if i mod 2 = 0 then writeln('so chan la=',i);
readln
end.