Вывести на экран квадраты нечетных чисел от 1 до 9 при for, иначе не пойдет кто прваильно сделает- много паскаль

Program kvadr_nechot;
var i:integer;
begin
for i:=1 to 9 do
  if i mod 2 = 1 then write(i*i, '   ')
end.

Var
  i:integer;
begin
  for i:=1 to 5 do Write(sqr(2*i-1),' ')  
end.

Результат
1 9 25 49 81