составить программу в паскале. составить программу, которая выводит на экран нечетные числа в диапазоне от 20 до 50

var i:integer; begin for i:=10 to 24 do write(2*i+1:4) end.

uses crt;
i: byte;
begin
clrscr;
for i := 20 to 50 do
if odd(i) then
write(i,', ');
readln;
end.

в цикл от 20 до 50 условие если остаток от деления mod(x) = 0 тогда не писать иначе написать

[ 21,23..50 ]

Кто короче?