program so_chan;

uses crt;

var A:array[1..1000] of integer;

      n,i:integer;

begin

       clrscrl;

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

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');  readln(A[i]);

              end;

       for i:=1 to n do

              if A[i] mod 2=0 then write(A[i],' ');

       readln;

end.

Uses crt;
Var a,n:integer;
Begin
 Clrscr;

Writeln('Nhap so N=');  Readln(n);

Writeln('Cac so chan trong khoang tu 1 toi ',n,' la:');
For a:=1 to n do if i mod 2 = 0 then write(a:4);
Readln
End.
*Nhớ tick và chọn làm câu tr/l hay nhất giúp mình nhé! Thanks
p/s: Chỗ nào khó hiểu, comment hỏi đáp!