PascalABC.NET
Текстовый файл Input.txt содержит натуральные числа. Написать программу, которая создает текстовый файл Output.txt, содержащий все четные числа файла Input.txt в порядке возрастания.

Предыдущий
вопрос Следующий
вопрос

Program EvenNumbers;

Var
inputFile, outputFile: Text;
number: Integer;

Begin
Assign(inputFile, 'Input.txt');
Reset(inputFile);

Assign(outputFile, 'Output.txt');
Rewrite(outputFile);

While not Eof(inputFile) do
begin
Readln(inputFile, number);
if number mod 2 = 0 then
Writeln(outputFile, number);
end;

Close(inputFile);
Close(outputFile);
End.