Pilih Nomor Genap

program zs;

{$APPTYPE CONSOLE}

uses
SysUtils;


var
I : Integer;
begin
for I := 1 to 10 do
if (I mod 2) > 0 then
WriteLn(I);
ReadLn;
end.