Выведите на печать все нечётные элементы таблицы в паскале 1 2 3 4 5 6 7 3 -4 0 2 -7 4 0

Var i: integer;
begin
  for i:=0 to 254 do
  begin
    if i mod 2=0 then break else write(ord(i));
  end;
  readln;
  readln
end.