1. In ra màn hình dãy số chẵn của dãy gồm n số nguyên. 2. In ra màn hình dãy số từ phần tử n-->1. Giúp mình nha.

1. program Min;
uses crt;
var n,i:integer;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   for i:=1 to n do if i mod 2 = 0 then write(i:4);
   readln
end.

2. program Min;
uses crt;
var n,i:integer;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   for i:=n downto 1 do write(i:4);
   readln
end.

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.