Заполнить файл последовательного доступа F целыми числами, полученными с помощью гениратора случайных чисел. Получить в файл G те компоненты файла F которые являются четными.
var
f, g:file of byte;
i, n, c:byte;
begin
assignfile(f,'f.txt');
rewrite(f);
randomize;
n:=5;
for i:=1 to n do
begin
c:=random(200);
write(f, c);
end;
begin
closefile(f);
reset(f);
assignfile(g, 'g.txt');
rewrite(g);
end;
while not eof(f) do
begin
read(f, n);
if n mod 2 = 0 then write(g, n);
end;
Begin
closefile(g);
reset(g);
end;
while not eof(g) do
begin
read(g, n);
write(n:4);
end;
readln;
end.