{* Задача 253 *}

Unit ZADACH253;
Interface
Implementation
Begin
 writeln('Дан файл, компоненты которого являются целыми числами. Получить в файле g все компоненты файла f являющиеся четными числами. ');
End.

Program zadach253;

Uses zadach253.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  fin  : text;
  fout : text;
  l    : integer;
Begin
  clrscr; {* Стираем всё с экрана *}
  assign(fin, 'In.txt'); {* Подключение к файлу 'In.txt' через переменную fin *}
  assign(fout, 'out.txt'); {* Подключение к файлу 'out.txt' через переменную fout *}
  reset(fin); {* Чтение из файла через переменную fin *}
  rewrite(fout); {* Подготовка переменной fout для записи в файл *}
  While Not eof(fin) Do {* Проверяем, не достигнут ли конец файла *}
  Begin
    read(fin, l);
    If ((l Mod 2) = 0) Then
    Begin
      write(l, ' ');
      write(fout, l, ' ');
    End;
    
  End;
  close(fin); {* Файл fin будет закрыт *}
  close(fout); {* Файл fout будет закрыт *}
  readln; {* Приостановка программы. Ожидание Enter *}
End.