Viết chương trình nhập vào dãy số a gồm n số nguyên .đưa ra màn hình những phần tử chia hết cho 2 của dãy số

program bt;

uses Crt;

var n:integer;

begin clrscr;

readln(n);

for i:=1 to n do if i mod 2 = 0 then writeln(i’,’);

readln;

end.

Học tốt nhé :>