Exercício 01 For - Pascal

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

program for01;
uses crt;
var
i : integer;
BEGIN
  for i := 0 to 20 do
    Begin
       if (i mod 2 <> 0) then
         Writeln(i);
    End;        
END.

Categories: Pascal , Programação