Возвести в куб нечётные числа от 1 до 20 (В Паскале)

Предыдущий
вопрос Следующий
вопрос

program CubeOddNumbers;

var
i, result: integer;

begin
for i := 1 to 20 do
begin
if (i mod 2 <> 0) then
begin
result := i i i;
writeln('Куб числа ', i, ' = ', result);
end;
end;
end.