составить блок схему и программу для вывода на экран нечетных чисел от 1 до 10

var i:integer;

begin

 for i:=1 to 10 do

   if i mod 2<>0 then writeln(i);

end.

Объяснение:

если поделить число от 1 до 10 на 2 с остатком, и он будет не равен 0, тогда написать число

блок-схему рисовать надо, а здесь нет графики