[vitalik007]

Код:

var f1,f2:textfile;
n:integer;  //количестово цифр в файле
i,chis:integer;
begin
assignfile(f1,'in.txt');
assignfile(f2,'out.txt');
reset(f1);
rewrite(f2);
readln(f,n);
for i:=1 to n do begin
readln(f1,chis);
if chis mod 2=0 then 
writeln(f2,chis);
end;
closefile(f1);
closefile(f2);
end.

Модератор:
Не забываем про тэги.
ЗЫЖ Ответ не полон, да и неверен в принципе