выведите на печать все нечётные элементы таблицы в Паскале
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;  readlnend.