Números impares entre 100 e 200

{Escrever um programa que gere e escreve os numeros impares entre 100 e  200.}

Uses CRT;
Var  Cont:  Integer;

Begin
    Cont := 100;
    Clrscr;
    Writeln ('Os numeros impares entre 100 e 200 sao: ');
    While Cont <= 100 Do
          Begin
              If (Cont MOD 2) <> 0 Then
                 Writeln(Cont);
              Cont := Cont + 1;
          End;
    Readkey;
End.