Розв’язок задачі з Абрамова №480a

Всі умови | Умова: Дано файл, компоненти якого є цілими числами. Отримати у файлі g всі компоненти файла f які є парними числами. (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №480)

program Pr480_1;
var
  f,g : file of integer;
  i:integer;
begin
  assign(f,'in');
  assign(g,'out');
  reset(f);
  rewrite(g);
  while not eof(f) do
  begin
     read(f,i);
     if i mod 2 = 0  then write(g,i);
  end;
  close(f);
  close(g);
end.