Вывести на экран квадраты и кубы нечетных целых чисел от 1 до 9 — Pascal(Паскаль)

var
i:integer;
begin

for i:=1 to 9 do begin
    if odd(i) then 
        begin writeln('kvadrat chisla ', i ,  ' raven ', sqr(i));
            writeln('kub chisla ', i ,  ' raven ', i*sqr(i)) 
        end;
    end;

end.