Составить программу для ввода на экран не чётных чисел от -25 до 25

Var i : integer; begin for i:= -25 to 25 do if i mod 2 <> 0 then writeln(i); end; end.