Определить минимальную из нечетных чисел с использованием цикла Repeat

Const

{Здесь задаются границы интервала}

First=1; {Нижняя граница}

Last=50; {Верхняя граница}

Var

S, X:Integer;

Begin

S:=0;

X:=First;

If X Mod 20 Then Inc (X) ;

Repeat

If X<=Last Then Inc (S, X) ;

Inc (X, 2) ;

Until X>50;

WriteLn ('SUM=', S) ;

End.