Exercicio 01 While - Pascal

1) Apresentar todos os valores numéricos inteiros ímpares situados na faixa de 0 a 20.

Program while01 ;
var
n : integer;
 Begin
    n := 0;
   while (n <= 20) do
    Begin
     if n mod 2 = 0 then
     else
      Write(n,' ');
      n:= n + 1 
    end; 
 End.

Categories: Pascal , Programação