program vad2211;
uses crt;
var
f,g:file of integer;
n,i,a:integer;
procedure vvod;
begin
randomize;
assign(f,'file.int');
rewrite(f);
writeln('- file.int');
write('-----: ');
readln(n);
for i:=1 to n do
begin
a:=random(41)-20;
write(f,a);
end;
close(f);
end;
procedure vyvod(x:file of integer);
begin
reset(x);
while not eof(x) do
begin
read(x,a);
write(a:4);
end;
close(x);
end;
begin {MAIN PROGRAM}
clrscr;
assign(g,'chet.int');
vvod;
vyvod(f);
reset(f); rewrite(g);
while not eof(f) do
begin
read(f,a);
if a mod 2 = 0 then write(g,a);
end;
close(f); close(g);
writeln;
writeln('- chet.int: ');
vyvod(g);
readln;
end.