Exercício 01 Repeat - Pascal

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

program repeat01;
uses crt;
var
i : integer;
BEGIN
    repeat
       if (i mod 2 <> 0) then
         Writeln(i);
      i := i + 1;
    until i > 20;   
  Writeln('                   by  Marcus Vinicius');  
END.

Categories: Pascal , Programação