program bt;
var n,i:integer;
a:array[1..100] of integer;
procedure nhap;
begin
writeln('nhap so pt');
readln(n);
writeln('nhap mang');
for i:=1 to n do read(a[i]);
end;
procedure xuli;
begin
dem:=0;
for i:=1 to n do
if a[i] mod 2= 0 then begin
writeln(a[i]);
inc(dem);
end;
begin
nhap;
xuli;
readln;
end.
Chúc bạn làm tốt!( có sai nói mik nhe)