Вывести на экран квадрат и куб нечетных чисел от 1 до 9

Var i:byte;
begin
for i:=1 to 9 do begin
if i mod 2 <>0 then
writeln('Квадрат (',i,') =  ',i*i,'; Куб (',i,') =  ',i*i*i);
end;
end.

1*1=1
1*1*1=1
3*3=9
3*3*3=27
5*5=25
5*5*5=125
7*7=49
7*7*7=343
9*9=81
9*9*9=729