Algoritmo para ler dois números inteiros representando um intervalo e escrever em ordem crescente todos os números ímpares do intervalo.

//Faça um algoritmo para ler dois números inteiros representando um intervalo e escrever em ordem

//crescente todos os números ímpares do intervalo.



program doisNumeros;

var

num1,num2,n,i:integer;

begin

writeln(' Informe o primeiro numero (inteiro!)');

readln(num1);

writeln(' Informe o segundo numero (inteiro)');

readln(num2);

// num1 ficará com o menor valor

if (num1 > num2) then

begin

n:=num1;

num1:=num2;

num2:=n;

end;

// aqui: está em ordem crescente

for i:=num1 to num2 do

begin

if (i mod 2 <> 0) then

begin

write(i,',');

end;

end;

readln;

end.