Const Fo='KETQUA.TXT'; Var g: text; A: array[1..1000] of longint; n,i: longint; Begin Assign(g,Fo); Rewrite(g); Write('Nhap n: '); Readln(n); For i:=1 to n do Begin Write('A[',i,'] = '); Readln(A[i]); End;
For i:=1 to n do If A[i] mod 2 = 0 then Write(g,A[i],' '); Close(g); End.
