[Aristarh Dark]

Ну это просто:

Код:

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils, Classes;
var
  sl:TStringList;
  s:string;
  i:integer;
begin
  WriteLn('Input line');
  ReadLn(s);
  sl:=TStringList.Create;
  sl.Delimiter:=' ';
  sl.DelimitedText:=s;
  WriteLn('--------------');
  for i:=0 to sl.Count-1 do
    if strtoint(sl[i]) mod 2 = 0 then
      WriteLn(sl[i]);
  WriteLn('--------------');
  ReadLn;
end.