Цикл for(Pascal)

решить задачку при помощи этого цикла:
напечатать все нечетные числа от 3 до 25

var a:integer;
begin
for a:=3 to 25 do
begin
if (a mod 2 =1) then writeln(a);
end;
end.