1/program BTH;
uses crt;
var a,b:longint;
begin
clrscr;
write('Nhap so n: '); readln(a);
for b:=1 to a do if b mod 2 = 0 then write(b,' ');
readln;
end.
2/
program BTH;
uses crt;
var a,b:longint;
begin
clrscr;
write('Nhap so n: '); readln(a);
for b:=a downto 1 do write(b,' ');
readln
end.